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FOREWORD 



The FORTRAN Reference Manual for EKIS contains specifications of the 
Data Description Language declaring a FORTRAN sub-schema (Section 2) , 
and the FORTRAN Data Manipulation Language (Section 3). 



DOCUMENTATION EXCELLENCE 

Prime is striving to maintain the highest documentation standards. To 
achieve this goal, the Database docunentation will be published in 
three documentation releases as described in Section 1. This is the 
Initial Documentation Release. Prime asks that each serious Database 
user correspond his coninents about this manual concerning technical 
accuracy and additional information needed to implement the task of 
Database Administrator. 



Rctoert E. Dawes, Technical Wtiter 
Tschnical Publications Department 
Prime Computer Inc. 
145 Pennsylvania Avenue, 
Framingham, Ma. 01701 
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ABOUT THIS MANUAL 

This manual is oriented toward knowledgeable database amplication 
programmers. The reader is assumed to be acquainted with basic 
concepts of virtual memory operating systems and familiar with the 
benefits of database management principles. 

gection 2 provides syntax rules and procedures for using the PORTPAN 
DATA EESCRIPTION LANGUAGE processor and Section 3 provides the 
description and procedure stekman etaoin using the EATA MANIPULATIOsI 
LANGUAGE. Section 4 provides necessary diagnostic procedures for both 
processors. 



DATABASE DOCUMENTATION 

Database documentation (Figure 1-1) is provided for both the Database 
Administrator and the ajplication programmer. The Database 
Administrator uses two manuals: 1) The Prime mtabase Administrator 
User's Guide and 2) Prime IBMS Schema Data Description Language (DDL) 
Reference Manuals. 

The application programmer uses two manuals per application language: 
1) the Prime FORTRAN Reference Manual for mm and the Canpanion Prime 
FORTRAN User's Guide, 2) The COBOL Reference Manual for DBMS and the 
Canpanion Prime COBOL User's Manual. 
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COMPILATION 
PROCEDURES 




Figure 1-1. PRIME DBMS DOCm^JsPTATION 
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Documentation Releases 

Prime provides three documentation releases (see Figure 1-2) for every 
new product: Ite Initial Documentation Release (IDR) , the Preliminary 
Docuitentation Release (PDR) , and the Final Documentation Release (FDR) . 

The Initial Documentation Release (IDR) provides whatever information 
is available without regard to vAiether the information is grammatically 
correct, or properly formatted. Thus, the intent is to provide usable 
information vAien needed. 

Ihe Preliminary Documentation Release (PDR) is the second draft by the 
writer. It provides more complete and accurate information about the 
product, but does not represent the final product information. 
Custoners having the IDR should request the PDR from his sales 
representative . 

The Final Documentation Release (FDR) is the complete product 
description up to the stated software revision number. This release is 
edited, formatted and presented in Prime's highest professional 
standards. Users will be notified vAien this release is available and 
should contact the local sales representative for a coj^. 



OTHER RELATED PRIME DCX:UMENTS 

PRIMOG FILE SYSTEM USER'S GUIDE MAN2604 

PRIMC6 INTERACTIVE USER'S GUIDE MAN2602 

PRIMOS COMPUTER ROOV! USER'S GUIDE MAN2603 

PROGRAM DEVELOPMENT SOFTWARE USER'S GUIDE MAN1879 

FORTRAN IV USER'S GUIDE MAN3057 

COBOL USER'S GUIDE MAN2797 
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Figure 1-2. DOCUMENTATION RELEASES 
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THE FCKTFAN/DEMS INTERFACE 

The FORTRAN interface to the EBMS includes two major processors and 
their respective languages: the FORTRAN Subschema Data Definition 
language (DDL) Compiler and the FORTRAN Data Manipulation Language 
(DML) Preprocessor. 

The application programier's "view" of a schema is written in the 
FORTRAN Subschema DDL. Ihe Subschema Catipiler translates the DDL into 
an internal, tabular form called the subschema table v\*iich is used by 
the DML Preprocessor. 

Canmands for locating, retrieving, deleting, and modifying the contents 
of a database are written in the FORTRAN DML. These commands are 
inter^)ersed with FORTRAN statanents in the application program source 
file and translated into FORTRAN declarations and statements by the 
FORTRAN DML Preprocessor. The output of the Preprocessor is the source 
input for the FORTRAN Ccxnpiler. 

EATABASE DEVELOPMENT 

The database development sequence of events is illustrated in figure 
1-3. Before performing any compilation, the user should examine this 
flow to assure that the database is constructed in the proper sequence. 
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FORTRAN USER DOMAIN 



FORTRAN 

Subschema 

DDL Source 



Subschemo 
Table 



DBMS DOMAIN 



DMLCP 
Template 



1 



DML Program 
Source 

(FORTRAN + DML) 




FORTRAN 

Source 

Code 




FORTRAN 

Object 

Code 




Application Program 
SEG Run FILE 



L_ 



Figure 1-3 Database Developnent Sequence of Events 
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SECTIC»J 2 
FORTRAN DATA IBSCRIPriC^f LANGUAGE CCMPILER 



PURPOSE 

This section contains the canplete specifications of the Data 
Description Language (DDL) for declaring a FORTRAN Subschema. 

Ohe specifications provide two divisions vAiich serve to: 

o Identify the subschana (Subschema Identification Division) 

o Define (and optionally rename) the areas, records, items, and 
sets included in the subschema (Subschema Data Division) 

Hie Subschema Identification Division must precede the Subschema Data 
Division and consists of a single entry. The Subschema Data Division 
consists of the following four types of entries: 

DATA-BASE-imTA-NAME ESWRY (DBEN ENTRY) 

AREA ENTRY 

RECCKD DESCRIPriC»3 ENTRY 

SET ENTRY 

The EBEN EJJTRY and the SET ENTRY are optional. A RECORD DESCRIPTICN 
ENTRY is conposed of one Record Control Ehtry and zero, one, or more 
Data Description Bitries. 

An entry may consist of one or more clauses. A clause specifies an 
attribute of an entry and is made up of phrases. All entries are 
terminated by periods. A sanicolon is used to separate clauses. 

For a RECCKD DESCRIPTIC»I ENTRY, a Canplete Entry Skeleton is shown, 
representing the breakdown of the RECORD DESCRIPTI(»J ENTRY into its 
component entries. For all other entries (includirKi the component 
entries of a RECCKD DESCRIPTICW ENTRY) a Complete Entry consists of the 
following : 

o A narrative description of its function 

o its general ftjnnat 

o The syntax rules viiich apply 

o The general rules vtiich apply 
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A general format is the arrangement of the elements v*iich make up a 
clause. Inter-clause and intra-clause sequencing are governed by the 
sequence shown in the Complete Entry, except v^en otherwise specified 
in syntax rules. A syntax rule amplifies or restricts the usage of the 
elanents within a general format. A general rule amplifies or 
restricts functions attributed to a general format or to its 
constituent elements. 

The notation used in all formats and the rules v^ich apply to all 
formats are: 

o The elonents vrfiich make up a clause consist of upper-case words, 
lower-case words, special symbols, and special characters. 

o All underlined upper-case words are required vdien the format is 
used. 

o Hsper-case words v*iich are not underlined are optional words and 
need not be used. 

o lower-case words are generic terms v^ich must be replaced by 
appropriate names or values. 

o The meaning of enclosing a portion of a general format in special 
synJx)ls is: 



A source specification is not required in this 
position but it may contain either a, b, or c. 



m 

{a '^ A source spec 

b > must include 

c J a, b, or c. 



A source specification in this position must 
exactly one of the components 



A source specification in this position may 
consist of a list of one or more of a, b, or c. 
If more than one is specified, they must be 
separated . 



An ellipsis (that is, '...') indicates repetition is allowed. Ihe 
portion of the format v*ich may be repeated is determined by the ' [ ' or 
•{' viiich logically matches the ']' or '}' to the iranediate left of the 



USING THE COMPILER 

The FORTRAN Subschema DDL Compiler (FSUBS) translates the FORTRAN 
Subschema Data Definition Language (DDL) into an internal tabular form 
called the Subschema table. FSUBS also produces an output listing 
vAiich includes the DDL text, error messages, and a map of the User Work 
Area. The listing is found in the current UFD and is called "L<-name", 
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vAiere "name" is the DDL input file name. 

The FORTRAN Subschema DDL Canpiler is invoked with the ccxnmand: 

FSUBS source-file [-VOL volume-name] 

If volume-name is not specified for the output subschema table, the 
volume of the schema table is assumed . 

Conpiler Errors 

There are three classes of errors that may be encountered by the 
compiler : 

1. Fatal - cannot parse further. 

2. Nonfatal - can continue parsing for further errors after end of 
this clause, but final subschema table will not be produced. 

3. Warning - Syntax is ambiguous or inconplete and the canpiler has 
made an arbitrary decision so that a final Subschema table may be 
produced . 

Error mess^es are displayed both on the user terminal with the line in 
viiich the error occured, as well as in the output listing after the 
erroneous line. 

User Work Area Map 



A map of the User Pfork Area COiyDyiCN block is included in the output 
listing of the PORIK^ Subschema DDL Compiler, ihe map includes the 
name, dimensions, FORTRAN data type, and starting address in User Work 
Area for all itons and data-base-data-names specified in the Subschema 
as well as the various DML run-time error and exception registers. 

Schema/Subschema Linkage 

If the output Subschema table is canpleted, it is automatically entered 
in the Subschana directory in the schema table of its parent schema, 
and can be accessed by the Database Administration Canmand Processor, 
the FORTRAN Data Manipulation Language Preconpiler, and the DML Command 
Processor . 
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****ii*****1t*ii****ie 

* SUBSCHEMA NAME * 
****************** 



IDENTIFICATICaSf DIVISION 

Function 

To name a si±)schema and its associated schema. 

General Format 

SUBSCHEMA NAME IS subschema-name OF SCHEMA NAME schona-name 



Syntax Rules 

1. Subschana name must be unique among all subschema names for this 
schema name known to the DBMS. 

2. The subschema name must be one to thirty alphanumeric characters 
or "-" or "*" with the first character being alphabetic. 

General Rules 

1. There must be one and only one SUBSCHEMA NAME clause and it must 
appear first in the subschema definition. 
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****************** 

* PRIVACY KEY * 
****************** 



IDENTIFICATION DIVISION 
Ftinction 



To specify the key for accessing the schema viiich includes the privacy 
lock on its use for developing a subschema (that is, it includes a 
PRIVACY LOCK FOR INCLUSION CLAIBE) . 



General Format 

PRIVACY KEY FOR INCLUDE IS literal-5 

Syntax Rules 
none 

General Rules 

1. There may be only one PRIVACY KEY clause in the subschema. 
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DATA DIVISIC»} 

Ihe SUBSCHEMA DATA DIVISION names the data-base-data-names, areas, 
records, and sets of the schema that are to be included in the sub- 
schana. 

Structure of the Subschema Data Division 

The Subschema Data Division consists of four types of entries: 

DATA-BASE-DATA-NAME ENTRY 

AREA ENTRY 

RECCKD DESCRIPTION ENTRY 

SET ENTRY 

The EATA-BASE-DATA-NAME ENTRY (DBEN) and the SET ENTRY may be emitted 
if not required. There must be at least one AREA ENTRY and RECORD 
DESCRIPTICW ENTRY. 
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***************************** 

* DATA-BASE-DRTA-NAME ENTRY * 
***************************** 

DATA DIVISIC»J 



Function 

To specify the data-base-data-naroes of the schana viiich will be used by 
the subschema. Optionally, to name the data-base-data-names in order 
to achieve conformity with the naming conventions of FORTRAN, or for 
conveiience purposes. 

General Forroat 



INCLUDE EBiyS data-base-data-name-1 [= data-base-data-name-2] 
[ ,data-base-data-name-3 [= data-base-data-name-4]] ... j. 



Syntax Rules 

1. Data-base-data-nante-1 and data-base-data-narae-3 must have been 
previously declared in the schema. Data=base-data-name-2 and 
data-base-data-name-4 must conform to FCRTRAN naming rules. 
Data-base-data-name-2 is known as a synonym for data-base-data- 
name-1, to be used by the run-unit n^ich invokes this subschema. 

2. The collection of data-base-data-names for a subschema consists 
of: 

a. The synonyms defined in EBEN entries for a particular 
subschana. 

b. Those nanes declared in tte schema v^ich are known to the 
subschema and do not have synonyms in this subschana. The 
collection must not contain any diplicates. 

3. Each name in the subschana collection of data-base-data-names 
must conform to the naming rules for FORTRAN. 



General Rules 
None. 
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************** 

* AREA ENTRY * 
************** 

DATA DIVISION 

Function 

To enunerate the areas of the schona that are included in the subschema 
and, by implication, to ranove from view all other areas of the schema. 

Optionally, to rename areas for convenience purposes. 

General Format 



INCLUEE ^EAS area-name-1 [=area name-2] Larea-name-3 [=area-nanie-4]] ... jj. 



Syntax Rules 

1. Area-name-1 and area-name-3 must refer to areas defined in the 
schana. 

2. Area-name-2 and area-name-4 are synonyms for area-nan^-l and 
area-name-3, respectively. The synonyms are to be used by a 
run-unit which invokes this stfcschema. 

3. The collection of area-names known to the subschona consists of: 

a. The synonyms defined in AREA entries. 

b. Itie area-names declared in AREA entries v*iich do not have 
synonyms. Ihe collection must not contain any duplicates. 
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**************************** 

* RECORD DESCRIPTION ENTRY * 
**************************** 

DATA DIVISION 



Function 

To enumerate and define the records and subordinate data itans within 
records of the schema that are to be included in the subschana. 

By implication, to ronove from view all other records and data items 
within records of the schema. 



Ccarplete Record Description Entry Skeleton 
Record Control Entry 

I;Data Description Ehtry]... 

Conplete Record Control Entry 



INCtDDE RECORD record-naroe-l[=record-naR5e-2] [ OVERIAYED WITH RECORD 
record-name-3] 



Canplete Data Description Entry 



INTEGER *2 
INTEGER*4 



■ y »| .1 ^ ■ 



REAL*4 
REAL*8 
LOGICAL 

DBK 

CHARACTER 



data-name-1 [=data-name-2] [dimension specification] 
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Syntax Rules for Conplete Record Description Eaitry 



1. A Record Control Entry is required as the first elanent in a 
subschema record description; it may be followed by zero or more 
Data Description Entries. 



General Rules for Couple te Record Description Eiitry 

1. A Data Description Entry is used to describe an elementary data 
item of the associated schema, vrfiether or not it is included in 
one or more repeating groups. 
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*************** 

* REJCORD NAME * 
*************** 

DATA DIVISION 



Function 

To define records vAiich are to be included in the subschema. 

Cptionally, to rename records for convenience purposes. 



INCLUDE RECORD record-name-1 [=record-name-2] [OVERIAYED WITH RECORD record-name-3] 



Syntax Rules 

1. Record-name-1 must refer to a record declared in the schema. 

2. Record-name-2 is synonynnous for record-name-1 to be used by a 
run-unit which invokes this subschema. 

3. The collection of record-names known to the subschema consists 
of: 

a. The synonyms defined in the Record Control Entries. 

b. Ihe record-names declared in the Record Control Entries vrfiich 
do not have synonyms. The collection must not contain any 
duplicates. 

4. All record-names appearing in Record Control Entries must be 
unique. 

5. Record-name-3 is the subschana name of a record previously 
defined in this subschema. The record defined by this statanent 
will be overlayed with the record identified by record-name-3 in 
the user work Area COMCN block, both starting at the same 
address. 

General Rules 

1. If OVH^LftYED is ^jecified, the record defined by reoord-nane-1 
must be less than or equal in length to the record identified by 
record-name-3 in the user work Area COWKN block. 
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********************** 

* TYPE SPECIFICATICW * 
********************** 

DATA DIVISION 

Function 

To specify the characteristics of a data itan in the subschema. 

By implication, to determine conversion rules between schema and 
subschema data items. 



General Format 



INTEX]ER*2 



INTEGER*4 




LOGIC AL 

DEK 

CHARACTER 



I » ^ » »■ I r " 



Syntax Rules 

1. If type CHARACTER is specified, the first dimension given 
multiplied by 2 is the nunber of characters in the string. The 
string is packed two characters to a vord in a FC«TRAN integer 
array in the User Work Area OOMMCN block. 

General Rules 

1. Ihe valid conversions are listed in Table 2-1. Any conversion 
not listed is not valid. Invalid conversions cause an Error 
Status Condition v*ien attonpted by the DML coiranand processor . 



REV. 



- 12 



IDR3045 



Schema 

DBK 

DATE 

TIME 

CHAPACTER 

BIT 

CCDE 

INTEGER*2 

INTECSR*4 

REaL*4 

REAL*8 

DECIMAL 

PICTURE (non-r.OTeric) 

PICTURE (numeric) 



x: 

3 
U3 





05 


CM 


•^ 








U 


■K 


* 








^ 




« 


* 


00 

* 




QCi 


Cc3 


C'l 


J 




i«3 


a 


g 


g 




S 


CJ 


u 


i-t 


M 


tf 


K 



CJ 



) 


z 

\ 




















X 


f 














( 


X 










> 


^ 




X 


X 


X 










X 






\ 
/ 


< 






^ 


















K 


^ 


/ \. 












X 


< 














X 




\ 












Y 


h 


/ 


i 










)x( 


^ 


^ 


X 






/ 


< 














X 


X 


X 


\ 

/ 


< 


X 





XX -allowed ^/. -default type when unspecified in subschora 



Table 2-1. Schona/PORTRAN Si±)schenia Type Conversions 
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2. Conversions permitted fran FORTRAN subschona to schema or from 
schema to FORTRAN subschema. 



Description of Conversion 
OK 



CHARACTER CHARACTER Truncated on right or blank-filled on 

right as necessary. 



from 


to 


T^pe 


T^pe 


DBK 


DBK 



CHARACIER INTEGER* 2 

CHARACTER INTEGER*4 

CHARACTER REAL*4 

CHARACTER REAL*8 



Ignores all blanks in the string. 

Ignores all blanks in the string. 

Uses FORTRAN DECODE with FORMAT (E14.6); 
string must be 14 characters. 

Uses FORTRAN DBCOffi with FORMAT (E24.6); 
String must be 24 characters. 



INTEGER*2 CHARACTER Uses FORTRAN ENCODE with FORMAT (16, 

999X) ; string must be at least 6 
characters. 

INTEGER*4 CHARACTER Itees FORTRAN ENCODE with FORMAT (112, 

999X) ; string must be at least 12 
characters. 

REAL*4 CHARACTER Uses FORTRAN ENCODE with FOWIAT (1PE14.6, 

999X) ; string must be at least 14 
characters. 

REAL*8 CHARACIER Uses FORTRAN ENCODE with POIWAT (1PE24.14, 

999X) ; string must be at least 24 
characters. 

INTEGER* 2 INTEGER* 2 All conversions are valid; uses FORTRAN 
' conversions. 

INTEGER*4 INTEGER*4 

REAL*4 REAL*4 

REAL*8 REAL*8 
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3. Conversions permitted frcm PORTPMI subschema to schema only. 
Subschema Schema 

Description of Conversion 
See General Pule 9. 
See General Pule 6. 
See General Pule 8. 



Type Type 

CHARACTEP CODE 

CHAPACTER DATE 

CHAPACTEP TIME 

INTEX3ER*2 BIT 



INTEGEP*2 CODE 

INTBGEP*2 DATE 

INTEGER*2 TIME 

INTEGER* 4 BIT 

INTEGER*4 DATE 

INTEGER* 4 TIME 

LOGICAL BIT 



Appropriate nunber of words moved without 
conversion; zero-filled on right. 

See General Rule 10. 

Same as INTEGER* 2 to INTEGER*4. 

Same as INTEGER*2 to INTEGEP*4. 

Appropriate number of words moved without 
converstion; zero-filled on right. 

Moved without conversion. 

Moved without conversion. 

Each logical word is placed in a bit; .TRUE, 
becomes 1; .FALSE, becones 0. 



4. Conversions permitted from schema to FORTRAN subschema only. 

Schema Subsctema 

Description of Conversion 

Moves the appropriate number of words without 
conversion; zero-filled on the right. 

Moves the aj^ropriate number of words without 
conversion; zero-filled on the right. 



Type 


Type 


BIT 


INTEGER*2 


BIT 


INTEGER* 4 



BIT 



LOGICAL 



CODE 


CHARACTER 


CODE 


INTFGF,R*2 


DATE 


CHARACTER 


DATE 


INTEGER*2 



Each bit is moved to a word; 1 becones .TRUE.; 
becCMTies .FALSE.. 

See General Rule 9. 

See General Rile 10. 

See General Rule 5. 

Same as INTBGER*4 to INTEGER*2. 
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DATE INTE(2;r*4 Moved without conversion. 

TIME CHARACTER See General Rule 7. 

TIME INTE(33^*2 Same as INTEGER*4 to INTBGER*2. 

TIME INTBGER*4 Moved without conversion. 

5. For conversions frcm DATE to CHARACTER, the string must be at 
least 12 characters long. DATE is an INTB(SR*4 number 
representing the nunber of days since the beginning of the 
Gregorian calendar (Oct. 15, 1582) . The format of the string 
will be *MON DD, yyyy' where 'MON' represents the 3-character 
abbreviation of the mcaith, 'DD' represents the day, and 'yyyy" 
represents the 4-digit year. The date is left- justified and 
blank-filled on the right. An example date to character 
conversion is 'Jun 21, 1977'. 

6. For conversions fran CHARACTER to DATE, the following formats are 
permitted: 

MCN DD, Y£ 

mAyD/T£ 

MM-DD-YY 

MMEDY 

Where 'MCN' represents the 3-letter ahtoreviation of the maith, 
•MM' represents a 1-digit or 2-digit mcaith, 'DD' represents a 
1-digit or 2-digit day. 'YY' represents a 2-digit or 4-digit 
year, and 'Y' represents a 1-digit year. If the format is 
•5WEDY', the base decade (for example, 1970) is added to the 
year. If the format is 'MH/tOAY' or 'MM-ESD-YY' and the year is 
less than 100, then the base century (for exanple, 1900) is added 
to the year. 

7. For conversions from TIME to CHARACTER, the string must be at 
least 8 characters long. TIME is an INTEGER*4 niitiber 
representing the nunber of seconds since midnight. Ihe format of 
the STRING is 'HH:MM:SS' v*ere 'HH' represents the 2-digit hours, 
•MM' represents the 2-digit minutes, and 'SS' represents the 
2-digit seconds. 



REV. 2-16 



IDP3045 



8. For conversions fron CKAPACTEP to TINE, the strir^ may have one 
of the following formats: 

HH 

HH:MM 

HH:MM:SS 

Where HH represents a 1 or 2-digit number for hours, 'MM" 
represents a 1 or 2-digit nonber for minutes, and 'SS' represents 
a 1 or 2-digit number for seconds. 

9. For conversion fron CX)DE to CHARACTEF, the character string (1-30 
characters) representing the appropriate encoding as specified in 
the CODE USING clause in the schema type declaration is put in 
the User WDrk Area CCMMCN block with trailing blanks. Ft»r 
conversion fron CHAPACTEP to CODE, the string in the User Work 
Area must match one of the literals in the CCDE VSmG clause, the 
internal pointer for viiich is stored in the record occurrence. 

10. Conversions between CCDE and INTEGER are the same as between CODE 
and CHARACTER except that instead of the literal character 
string, the number representing the order of the literal in the 
CX)DE IKING list is found in the User Vferk Area CCMOJ block. 
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************* 

* DATA NMIE * 
************* 



DATA DIVISIC»I 



Function 



To select data items of interest (v*iether or not they are included in 
one or more repeating groips) fran a record defined in the schona, 
thereby implicitly removing from view all unnamed itens of the record. 

To create a FOPTEAN non-hierarchical record description by including 
data itens from the schema and ^)ecifying than in terms of FORTRAN 
variables and arrays. 

Optionally, to rename data items in order to conform to the FCSSTRAN 
naming conventions, or for convenience purposes. 



General Format 
data-name-1 [=data-name-2] 

Syntax Rules 

1. Data-name-1 must refer to a data item declared for the record in 
the schema v*iether or not it is included in a repeating group 
(i.e., data-name-1 may refer to a vector but not to a repeating 
group) . 

2. Data-name-2 must conform to FORTRAN naming rules. Data-name-2 is 
a synonym to be used by a run-unit which invokes this subschana. 

3. The collection of data-names known to the subschema consists of: 

a. The synonyms defined in the Data Ehtries. 

b. Ihe data-nanes declared in Data Ehtries v*iich do not have 
synonyms. The collection must not contain any duplicates. 

4. Each name in the subschona collection of data-names must conform 
to the naming rules for FORTRAN. 
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*************************** 

* DIMENSION SPECIFICATION * 
*************************** 



DATA DIVISION 
Function 



To define data itons vdiich are vectors and/or participate in repeating 
groups. To dimension a PORTPAN variable, INTEGER or LOGICAL, so that 
it will be compatible with the length of a CHARACTER or BIT STRING data 
item in the schana. 



General Format 



(integer-1 [,integer-2] [,integer-3] [,integer-4] [,integer-5] 
[,integer-6] [, integer-?]) 



Syntax Rules 

1. Each integer specifies the maximum index value for each dimension 
in the normal FORTRAN manner (left-most changing "fastest") . 

2. Any data item of the schema included in one or more repeating 
groups must be declared as an array of the subschema, with nisriber 
of dimensions inclusively between one and the number of nested 
repeating groups containing that data item, plus one dimension if 
the item is a vector and another if the item is type string. 
However, the number of dimensions cannot exceed the limit allowed 
by FORTRAN — currently three. The correspondence between the 
occurrences of the data item in the database and the array 
eletients of the subschema is determined as explained by General 
Rules 2-5. 

3. If the data iton in the subschema is declared to be type 
CHARACTER, then a minimum of two dimensions must be specified, if 
the item is a vector and/or participates in a repeating group. 
If the iton is not a vector and does not participate in a 
repeating groip, a dimension need be specified only if CHARACTER 
strings of more than 2 characters in length are desired. 
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General Rules 

1. For a data item v*iich is declared as a vector and/or participates 
in a repeating groqp in the schema, the dimension specification 
restricts the run-unit's "view" of the occurrences of the itan in 
a record occurrence to the number of elanents available in the 
FORTRAN array. 

2. If a one dimensional array is declared (or two dimensional if 
type CHARACTER) , the occurrences are stored in the array arrang«3 
by higher to lower repeating group occurrences (with "higher" 
meaning the largest level nunber) . That is, all occurrences of a 
data item at the highest repeating group level and corresponding 
to a set of fixed irrfices for the lower repeating groups are 
stored in consecutive array elonents. 

3. For each additional dimension, the n'th dimension from the right 
corresponds to the repeating group at level n below this iton. 

4. The number of dimensions specified - minus one if the itan is 
type CHARACTER - is m and the number of repeating group levels to 
an itan - plus one if the itan vector is n. Then, if m<n, the 
elonoits available for storing levels m and all higher levels, 
including the itan itself if it is a vector, are those specified 
by the left-roost dimaision (or second dimension if type 
CHARACTER) . 

5. Within each repeating grotp level, the occurrences in the array 
are indexed in the same order as in the database. 
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************* 
* SET ENTRY * 

*******^^***x 

DATA DIVISION 
Function 

TO enumerate and define the sets of the schema that are to be included 
in the subschema and by implication, to remove from view all other sets 
of the schona. 

C^tionally, to rename sets for convenience purposes. 
General Format 

INCLUDE SETS set-narae-1 [=set-name-2] Uset-name-3 [-set-name-4]] ... 

Syntax Rules 

1. Set-name-1 and set-name-3 must refer to sets defined in the 
schona. 

2. Set-name-2 and set-naiie-4 are synonyms for set-name-1 and 
set-name-3, respectively, to be used by a run-unit which invokes 
this subschana. 

3. The collection of set-names known to the subschema consists of: 

a. Ihe synonyms defined in the SET Entries. 

b. The set-names declared in the SET Entries which do not have 
synonyms. 

The collection must not contain any duplicates. 

General Rules 

1. A RECORD DESCRIPTION ENTRY for the owner record of each set 
included in a subschema must also be included in that subschema. 
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OVERVIEW 

•flie purpose of the FORTRAN Data Manipulation Language (FDML) is to 
support access to the Data Manipulation Command Processor (MlLCP) using 
FORTRAN as a host language. Ihe FDML language consists of English-like 
statanents and is based on the J^ril 71 report from CODASYL. These 
statements are translated by the FDML preprocessor into FORTT^AN 
declarations, FORTRAN call statements, and other FORTRAN procedure 
statonents. 

Before a FCML program can be written, a FORTRAN SUBSCHEMA must be 
written and conpiled by the FORTRAN SUBSCHEMA conpiler (FSUBS) 
described in Section 2 of this manual. Ihe FORTRAN SUBSCHEMA contains 
the names and declarations of the areas, sets, itons, records and 
data-base-data-names that the FDML application program can reference. 



HCW TO USE THE FEML PREPROCESSOR 

Prograirming Tips 

Once the subschema has been provided, the following progranming tips 
should be considered when writing application programs. 



1. All FORTRAN program units which contain FDML ccmmands must 
contain either a SUBSCHEMA or DKIS SUBPROGRAM statement. 

2. Cnly one subschema of one schema can be invoked at any one tinre 
in a OHMS ajplication program. 

3. Ihe amplication program and subprograms \rfiich contain DML 
commands must be programmed in one language, e.g., all FORTRAN or 
all COBOL. 

4. The FORTRAN IML application program must reference a FORTRAN 
SUBSCHEMA. 

5. Ihe FORTRAN application program should avoid using the CO^WON 
blockname and the User Work Area register names vrfiich are output 
by the FORTRAN SUBSCHEMA compiler. 

6. The procedure section of the FORTRAN application program may 
freely intermix FORTRAN statements and FDML statonents; however, 
FDML statonaits and FORTRAN statanents may not be mixed on the 
same line or on a continuation line. 
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7. Cnly one INVOKE statement should be executed during the duration 
of a run-unit. The execution of more than one INVOKE has 
undefined results. The failure to execute an INVOKE statement 
will cause the FDML statenents to be ignored. 

8. All FDML statanents must be preceded by a '#' to identify the 
statonent to the FDML preprocessor. 

9. All FDML programs must terminate execution with an EXIT EBMS 
statanent. 



FDML ORGANIZATIOS 



Two Classes of FDML Statements 

There are two general classes of statanents in the FDML, declaration 
statanents and executable comnands. 

The declaration statanents allow the FDML program to declare the SCHEMA 
and the SUBSCHEMA required for the application program. It also 
inserts the definition of a FORTRAN COMPOI block which serves as the 
User work Area (UWA) for the application program. The OOIMON block 
contains the items and their types declared by the subschema and the 
DMLCP registers. 

The FDML executable conmands specify the individual DML processes 
required by the FDML application program. Currently the following FDML 
capabilities exist: 



Run-Uhit Oriented Contands 

Run-Unit Ctiented Commands are used by the run-unit to initiate and 
terminate ccranunication with the DMLCP. They also allow the user to 
clear error statuses and declare Privacy locks. They include: INVOKE, 
EXIT DBMS, ABORT EBMS, CLEAR ERROR and HIIVACY KEY. 



Area Oriented Ccmitiands 

Area Oriented Commands obtain and relin<yiish control of the IBMS area 
files. They also allow the user to specify the mode in which these 
files are to be used. They include: OPW and CLOSE. 



Record Oriented Comnands 

Record Oriented Comnands are used to create, manipulate, remove and 
obtain records from the database. These commands include: STORE, 
lELETE, GET, MODIFY, FIND and FETCH. 
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Set Oriented Coirmands 
INSERT, REMOVE and MODIFY. 



Supporting Coimiands 

Supporting Commands allow the user to manipulate currency statuses. 
They include: SUPPRESS, MOVE and CLEAR. 



Concurrency Functions 

Concurrency Functions allow a run-unit to access and update a database 
along with concurrent run-units. Ihey insure that the view of the 
database is consistent, guarantee its integrity and provide for 
rollback and recovery facilities. These ccninands include: START 
TRANSACTION, END TRANSACTION and ABORT TRANSACTION. 



FDML SYNTAX OCMPCaffiMIS AND NOTATION 

This section describes the requironents for the FORTRAN Data 
Manipulation language (FDML) statements and syntax notation used in 
programming FORTRAN ^plication programs to run on Prime's IBMS system. 
The first subsection describes the syntax components >*ich may appear 
in an FDML statanent. The next si±tsection describes the syntax 
notation vAiich will be used in defining the permissible syntax within 
the statonents. 



EPML Statanent Format Rules 

The FDML statements are in an English-like format but they have scsne of 
the characteristics of a FORTRAN statonent. They must start after 
colimn 6 and end before colunn 73. A "C" in colimn 1 designates a 
conment card. A statement label may be inserted in columns 1-5, and a 
statement may be continued by placing a non-blank character in coltmn 
6. There is no limit to the nunfcer of continuation statanents that may 
be used. In addition to these rules, all FDML statanents and 
declarations must start with a "#" character after colunnn 6 to be 
recognized by the FDML preprocessor. 



C3iaracter Set 

The FDML statonaits are composed of tokens **iich are thanselves 
composed from the character sets shown in Table 3-1. 
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Terminating FDML Statements 



FDML statemaits are terminated by a period; although the period is 
optional, it should be used to improve error checking arxS to eliminate 
usual error messages. 
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Table 3-1. FDML STATEMENTS CHARACTER SET 



CHARACTER GBOUP 
Letters 



MEMBERS 

ABCDEFGHI 
JKLMNOPQRS 
T U V W X Y Z 



DIGITS 



Special Qiaracters 



Reserved for future use 



1234567890 

blank (space) 

- (minus sign or dash) 

, (coirnia) 

; (semicolon) 

. (period) 

' (quotation mark) 



= (equal sign) 

> (greater than sign) 

< (less than sign) 

* (Asterisk) 

$ (Dollar sign) 
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Delimiting Characters 

Ttte following FDML characters serve to delimit syntax components: 1) 
i^ace, 2) ccaima, 3) semicolon and 4) period. Consecutive spaces are 
treated as a single space. It should be noted that although a space is 
a delimiting character for an FDML statanent, it is not a delimiting 
character in a FORTRAN statement, ihe end of a line also serves as a 
delimiting character so that a syntax component may not cross a line 
boundary. 



Generic Terms 

The following is a list of generic terms for the FDML Language and the 
rules for their function. 



Schana-name 

Used to identify that schana the run-unit is to access. It must 
identify a valid schema compiled by the "SCHEMA HDL COMPILER". 



Subschana-name 

Used to identify the subschema vAiich the run-unit is to access. It 
must identify a FORTRAN subschema which has been compiled by FSIBS. 



FORTRAN-label 

Refers to a local FORTRAN statanent label which can be accessed by a 
local 00 TO. 



Integer 

Used in FDML statements to provide a literal integer vali;e. The 
integer syntax component obeys the normal FORTRAN rules for an integer 
constant. 



REV. 3 - 



IDR3045 FORTRAN DATA MANIPULATION 



Literal 

Used in the FDML statonents to refer to a literal value that is to be 
passed for a PRIVACY KEY statement. Ohe literal component must refer 
to a valid FORTRAN integer, real or ASCII string constant. 

Identifier 

Used in FDML statanoits to refer to a FORTRAN variable name or array 
name. 



Data-base-data-name (dbdn) 

Refers to a storage location viiich has been declared by the_schana and 
the subschema to hold a particular value such as an area name or data 
base-key. 



Data-base-identifier (dbid) 

Refers to a stor^e location which has been declared by the schema and 
the subschema to hold the value of an iten of a record. The dbid is a 
valid FORTRAN identifier and is declared in the FORTRAN application 
program in the Vset Wbrk Area CCMMON block. 



Area-name 

Itefers to a valid area name vp*iich has been defined by the schema. It 
is formed by paroviding the identifier viiich has been defined in the 
invoked subschema. 



Record-name 

Refers to the database record type v*iich has been declared in the 
schana. It is formed by providing the identifier viiich has been 
defined in the invoked subschema. 



Set-name 

Refers to the database set type vAiich has been declared in the schema. 
It is formed by providing the identifier which has been defined in the 
invoked ai)schaiia. 
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FDML Syntax Notation 

This subsection defines the conventions used to describe syntactically 
correct FDML statenents. 

A syntax skeleton consists of a sequence of syntax component names, 
delimiters, and keywords, vAiich may be grouped by special notational 
symbols. The skeleton represents a source specification of input to 
FDML in vhich the sequence of actual syntax components, delimiters, and 
keywords corresponds to that in the skeleton. The special notational 
symbols denote v*iether optional, alternative, or repeated sequences may 
occur within the corresponding source specification. 

The following conventions apply within a sjmtax skeleton: 



1. All underlined upper-case words are required v*ien the format is 
used. 

2. Upper-case words v^ich are not tniderlined are optional words and 
need not be used. 



3. lower-case words are goieric terms v*iich must be replaced by 
appropriate names or values. 

A source specification is not required in this 
position but it may contain either a, b, or c. 



A source specification in this position must 
include exactly one of the components a, b, or c. 




A source specification in this position may 
consist of a list of one or more of a, b, or c. 
If more than one is specified , they must be 
separated by comnas. 



The immediately preceding construct may be 
repeated an arbitrary nunber of times. 
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FEML PREPPOCESSC® COWIMCS 

Ttiis subsection describes in detail the FDHL declarations and conmands. 
The description of each clause contains the following headings: 

Function 

A brief narrative description of the function of the facility. 

General Format 

The arrangonait of the syntax elonents vAiich make up the clause. 

Syntax Rules 

These serve to amplify or restrict the usage of the elanents within the 
general format. 

General Rules 



1. A description of the sanantic rules for using the caimand and a 
description of program capability and error conditions viiich 
relate to the statanent. 



EXairples and DiscussiOTi 

Specific examples of the use of the statanent. 
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CX*IPLETE SYNTAX SKELETC»J 



ABORT TRANSACTIC^ identifier-1 

CLEAR ERROR 

CLOSE 

Ponnat 1 

CLOSE ALL AREAS 



Format 2 



CLOSE AREA[S] area-name-1 [ ,area-name-2] . 



DELETE 



MANDATORY 
SELECTIVE 



END TRANSACTION identifier-1 



EXIT DBMS 
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/fekex ,3^ 






FIND 



Record Selection Expressions 



Format 1 



USING identifier-I 



Foritiat 2 



OWER 
MEMBER 



IN set-name OF 



CURRENT OF 



RE OORD record-name-2 
SET set-name-4 
ARE A area-name-1 
RUN-UNIT 



Format 3 



t NEXT 
PRIOR 



FIRST 
LAST 

int'eger-l 
identifier 



RECCM) [record naite-3] OF 



-2 



SET set-name-5 
AREA area-name-2 



Format 4 

[NEXT DUPLICATE WITHIN] RECORD record-naine-4 

Format 5 

record-name-5 VIA [ CURRENT OF] SET set-name-7 [ USING dbid-3 [,dbid4]...] 

Format 6 

NEOT DUPLICATE WITHIN SET set-nane-8 USING dbid-5 [ ,dbid-6J . . . 
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GET [dbid-1 , dbid-2...] 



IF 



Format 1 



IF set-name-1 SET [NOT] EMPTY 



fortran-label-1 
NEXT 



ELSE fortran-label-2 



Fonnat 2 



IF RECORD [NOT] ( ^I^^J i i OF 



4 

OWNER ' 

J 



set-name- 2 
ANY SET 



[ELSE fortran-label-4] 



fortran-label-3 
[NEXT 



INSERT INTO ^^^ set-name-1 [ ,set-name2] 
ALL SETS 



INVOKE DBMS 
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^w-iTiTPV fr^I-i-!/?—! rlKiH—O 1 



MOVE 



Ponnat 1 



RUN -UNIT 

MOVE CURRENCY STATUS TOR { ^^'f^^T^ \ TO identif ier-1 
■■•■•■•■ ' ■ ■ " ■•- I AKbA area— name ' 

SET set-name 



Format 2 



MOVE 



[record-name 



I MJN-UNIT 



FOR 



RECORD record-name 



j yEA area-name 
SET set-name 
i3entifier-2 



■ TO identifier- 3 



ON ERBCm. 



Format 1 



;0N AIL ERRORS GO TO fortran-Iabel 



Format 2 



;0N ERROR integer-1 [ 4nteger-2] . . . 00 TO fortran-label . . . 
[ON ERROR integer-3[,integer-4] ... GO TO fortran-label] 
[ON OIHER ERRORS GO TO fortran-label] 
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OPEN 



Format 1 



OPEN ALL AREAS 



USAGE-MODE IS 



EXCLUSIVE 

PROTECTED 



RETRIEVAL | 
UH)ATE 



Format 2 



OPEN AREA [S] area-name-1 [ ,area-name-2] . . 



[JSArF MnnP Td fEXpLUSIVE] I RETRIEVAL 
IBAffi MODE IS [^^^ctedJ feoATE 



PRIVACY KEY 



Format 1 



PRIVACY KEY [FOR 



EXCLUSIVE 
PROTECTED 

EXCLUSIVE 
PROTECTED 



RETRIEVAL 
UPDATE 



]0F 



AREAS area-name-1 [,area-name-2] 
ALL AREAS 



IS 



literal-1 
identifier-1 



Format 2 



r 



PRIVACY KEY [FOR * 



REST' 

STORE 

GET 

MODIFY 

INSERT ^ . 

REMOVE r J OF 

pEL £TE MANDATORY 

DELETE SELECTIVE 

[£:i£TE ALL 

FIND 



raiCORES record-name-1 [,record-nome-2] 
ALL RECORDS 



IS j literel-2 
identifie 
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Fonnat 3 



PRIVACY KEY [FOR 



STORE 

^T 

B^IFY 



IS 



]0F DATA-ITEJe dbid-1 [,dbid-2] 



literal-3 
identifier-3 



Fonnat 4 



PRIVACY KEY [FOR 



REST 
INSERT 



] OF 



SETS set-name-1 [,set-naine-2] 
ALL SETS 



IS 



literal-4 
identifier-4 



REMOVE FROM 



SETS set-name-l [ ,set-nanie-2] . . . 
ALL SETS " 



START TKANSACTION identifier 



UPDATE 
'REraiEVAL 



STC»E record-name 



3 - 15 



July 1977 



SECTICW 3 



IDF3045 



SUBSCHEMA subschana-name of SCHEMA schema-name 



SUPPRESS 



[CLEAR] 



SUPPRESS 



ALL 

RECORD 

AREA 
(SET 
|set-name-l (set-name-2] 
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EML STATEMENTS 



******************** 

* ABORT TRANSACTION * 
******************** 



Function 

Causes all i;pdate actions since the last START OF TRAIBACTIC»} ccinnand 
to be negated (i.e., the database is rolled back), all locks to be 
released, and all currency indicators to be reset as they were at the 
last START TRANSACTIOJ conmand. 



General Format 



ABORT TRANSACTIOU identif ier-1 



Syntax Rules 



1. Identif ier-1 must contain the value assigr^ by the START OF 
TRANSACTION comnand. 



General Rules 

1. If before- imaging is turned off then the PBOm TRAfBACTICaJ has no 
effect. 

2. If identif ier-1 is invalid or if no transaction is currently 
active. Error Status Condition 2535 results with concurrent Error 
Status found in OOSlTYP. 



Examples and Discussion 
See START TRANBACTIOfl. 
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*************** 

* CIEAR ERROR * 
*************** 

Function 

CLEAR ERROR CLEARS DMLCP error conditions and its associated registers. 

General Format 
CLEAR ERROR 

Syntax Rules 

None 

General Rules 



1. This command clears all DBMS registers, including ERSTAT, CONTYP, 
ERAREA, ERDEC, ERSET', ERITEM, ERCASE. 

2. If the error is a non-fatal error, it clears on internal flag 
allowing the DMLCP to continue processing. 

3. It must be called after every DMLCP error condition. 



Examples and Discussion 
See CN ERROR clause. 
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********* 

* CLOSE * 

■L. *L J. •!> JU JL JL J. .t. 



Function 

To relinquish control over the specified areas and make them available 
to other run-units. 



General Format 

Format 1 

CLOSE ALL AREAS 

Format 2 

CLOSE AREA [S] area-name-1 [ ,area-name-2] . . . 

Syntax Rules 

1. All area names specified must be included in the invoked 
subschotia . 

General Rules 

1. Note that CLOSE (unlike OPEN) need not deal with all opened 
areas. 

2. After execution of a CLOSE statonent for a given area, any 
attempt to access that AREA will result in Error Status Condition 
nn01 (viiere nn indicates the particular DML statonent attempted) . 
A sdDsequent CLOSE statement does not return an error status. 

3. In format 1, the CLOSE statonent applies to all areas vsiiich are 
in an open status for the run-unit. These areas are then subject 
to General Pule 2 above. 

4. Ihe run-unit's currency indicators may identify those record 
occurrences located in areas v^^ich are no longer in an open 
status for that run-unit, ihese currency irKSicators become null 
after the CLOSE statement is executed. 

5. If all area-names specified are not included in the invoked 
subschema. Error Status Condition 0146 results; otherwise ERSTAT 
is zero, indicating successful execution of the CLCSE statanent. 

6. A CLOSE statoTieht cannot be executed during an open transaction. 
Otherwise, Error Status Condition 935 will result, with OONTYP 
set to 15. 
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Examples and Discussion for the CLOSE Statement 

Example 1 

#CLOSE AEEAS MY-AFEA, YODP-AREA. 

This statemait closes two areas: 1) MY-AREA and 2) YCXJR-AREA. All 

records in these areas are no lOTiger available for processing and all 

of the currency statuses that refer to records in those areas are 
cleared . 
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********** 

* DELETE * 
********** 

Functicai 

Ohe DELETE statement performs the following functions: 

1. Makes the object record occurrence unavailable for further 
processing by the imperative-statemoits of the DML. 

2. Ranoves the object record from all set occurrences in vAiich it is 
a member. 

3. Deletes all record occurrences v*iich are mandatory manbers of set 
occurrences owned by the object record. 

4. Ranoves or deletes optionally all record occurrences v^ich are 
optional manbers of set occurrences owned by the object record. 

5. Optionally prevents deletion of the object record if the database 
contains any non-anpty set occurrences of vrfiich the object record 
is the owner. 



General Format 



DELETE 



MANDATORY 
SELECTIVE 
ALL 



Syntax Rules 
None. 

General Rules 

1. The immediate object record occurrence of the raiLETE statement is 
the current record of the run-unit. 

2. The object record is ranoved from all set occurrences in which it 
is a mestbet. It is then deleted; that is, made unavailable for 
further processing by any EML statement. 

Note that there is a distinction made between a ranoved record 
occurrence and a deleted record occurrence. A EELETE statement 
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is inclusive of the function of a REMOVE statement, and is 
described in the previous paragraph of this general rule. A 
REMOVE statement cancels the existing manbership of a record 
occurrence in specific set occurrences. The removed record is 
then not accessible through those set occurrences but continues 
to be accessible through any other sets in v*iich it participates 
as a member. It may also be accessible by virtue of its having 
been defined with a lOCATION MODE IS CAtC clause. It is always 
accessible by means of a complete scan of the area in v*iich it 
participates, or through its database-key (if that is known) . 

3. Ihe unqualified form of the MlLETE statenent deletes the object 
record only if it has no member records, if the object record is 
the owner of a non-enpty set occurrence, the EELETE statement is 
not successfully executed and Error Status Condition 0230 
results. 

4. The EELETE MAMaATORY form of the statanent deletes the object 
record and all of its mandatory members. It ranoves but does not 
delete its optional ironbers. 

If any deleted mandatory menber is the owner of a set occurrence, 
then the DELETE statanent is executed on such records as if it 
were the doject record of a DELETE MANDATCHY statement. Thus, 
all mandatory members of such sets are also deleted, \*ich in 
turn causes this process to continue down the hierarchy. 

5. The DEUETE SELECTIVE form of the statanent has the same results 
as the HILETE MANDATORY Statement with the exception that: 

o Optional manbers are deleted if they do not currently 
participate as members in other set occurrences. 

o All deleted records vrfiich are themselves the owners of any 
set occurrences are treated as if they were the object of a 
IKLETE SELECTIVE Statanent. 

6. The DEI£TE ALL form of the statanent deletes the dbject record 
together with all of its member records, regardless of whether 
they are mandatory or optional. As with the DELETE MANDATORY 
form of the statanent, the delete process continues down the 
hierarchy with the differerrce that all deleted records, vrfiich are 
thanselves the owners of any set occur rerK^es, are treated as if 
they were the object record of a MLETE ALL statanent. 

7. The current record of the run-unit becomes null. No other 
currency status information is altered. Thus, the object record 
and all other records deleted or removed ranain as current of 
area-name, record-name, and of all set-names in which they were 
current prior to the execution of the EELETE statanent. 

8. If the run-unit has not satisfied the privacy locks for the 
object record itself, or, for any other record occurrence v*iich 
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would be deleted, removed, or modified as a result of the 
execution of the DELETE statement. Error Status Condition 0204F 
will result and the run-unit will he aborted by DMLCP. 

9. If the areas in v*iich the records are being deleted are opened 
for concurrent update and this conmand causes a concurrent update 
conflict, or no update transaction is currently active, then 
error 235 will result with concurrent error status found in 
a^NTYP. 

10. In addition to the conditions described in General Rule 8, any of 
the following conditions will result in an error if they occur 
during the execution of a DEIETE statenent: 

o If the current record of run-unit is not known. Error Status 
Condition 0213 results. 

o If the unqualified form of the KLETE statonent is attenpted 
against the owner record of a non-anpty set occurrence. Error 
Status Condition 0230 results. 

o If any of the record occurrences which would be deleted, 
removed, or modified as a result of the execution of the 
DEI£TE statonent is in an area vAiich is not open. Error 
Status Condition 0201 results. 

o If the object record, or any record that would be deleted or 
removed as a result of executing the DELETE statement, is 
located within an area that is open for RETRIEVAL, Error 
Status Condition 0209 results. 

o If any record occurrence needed by the DMLCP for 
informational purposes (such as following a search path) is 
not available because it is off-line or under exclusive 
control of another run-unit. Error Status Condition 0218 
results. 

o Ihe subschema invoked must name: 

a. All of the records which would be deleted, removed or 
modified as a result of executing the raiLETE statatient. 

b. All of the sets in vAiich any record to be deleted is an 
owner or a mandatory member , 

c. All of the sets from which any record is to be removed. 

d. All of the owner record types of the sets from which 
records are being ramoved. Otherwise, Error status 
Condition 0208 results. 

11. When an error occurs, the database and User WDrk Area ronain in 
the state existing prior to the attanpted execution of the DELETE 
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statonent and the appropriate Error Status Condition code is made 
available in special register ERSTAT. Otherwise, ERSTAT is set 
to zero, indicating successful execution of the EELETE statement. 
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Error Status Codes For DELETE Statement 



Condition Content of 

Error Status 



Area not open 0201 

Ifeferenced record-name or set-name not in invoked sub-schema 0208 

Incorrect us^e mode for area 0209 

No current record of run-unit 0213 

Implicitly referenced area not available 0218 

Concurrent update conflict 0235 

Unqualified DELETE canmand attempted on non-enpty set 0230 

Fatal - privacy breach attempted -0204(0204F) 
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Exanples and Discussion for the DELETE Statement 

Example 1 

tDELEn^ ALL. 

Ihis stateiiQit will delete the record that is the current record of 
run-unit and all of its members and ronove it from all sets in 
v*iich it is a member. It will then repeat this process until all 
of the records which participate in the hierarchy have been 
deleted . 

Example 2 

#DELETE. 

This statement will delete the current record at run-unit only if 
it owns no sets or if the sets which it does own currently have no 
members. It also removes the record frcm all sets in vAiich it 
participates as a member. 
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******************* 

* END TFANSACTIC»I * 
******************* 



Function 



EWD TRANSACTION defines the end of a recoverable program sequerrce and 
causes a record of the successful termination to be written to the TWiS 
system IDG file. 

The IBMS guarantees that all updates are secure to disk. 

The end of an ipdate transaction allows modified data to be accessed by 
other transactions by releasing all locks. 



General Format 

END TRANSACTIC^ identifier-1 
Syntax Rules 

1. Identifier-1 is a FORTRAN identifier v*iich contains an INTBGER*2 
value assigned to the transaction. 

General Rules 



1. If before- imaging is turned off, then the END TRANSACTICW has no 
effect. 

2. If identifier-1 does not match the identifier on the most recent 
START TRANSACTION or if no transaction is currently active, Error 
Status Condition 2435 results with concurrent error status found 
in COTTYP. 



Exanples and Discussion 
(See START TRANSACTIOJ) . 
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************* 

* EXIT I^«S * 
************* 



Function 

To terminate communication with the DMLCP. To close all opened files 
and clear all status registers. 

General Format 

EXIT DBMS 
Syntax Rules 

None 
General Rules 

1. An EXIT DBMS must be executed before termination of a run-unit. 

2. Cnce an EXIT WMS has been executed, the only way camiunication 
to the DMLCP can be reinitialized is through an INVOKE. 

3. An EXIT DBMS cannot occur inside an opened DBMS transaction. 
Otherwise, an error 1035 results with concurrent error status of 
15 in CONTYP. 



Examples and Discussion 

NONE 
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********* 

* FETCH * 
********* 



Function 



The FETCH statonent is a combined FIND and GET statement vAiich both 
establishes currency for the object record and makes available the 
contents of that record. 



General Format 
FETCH rse 

Syntax Rules 

See RECORD SELECTION EXPRESSION (rse) . 

General Rules 

1. Execution of a FETCH statanoit causes the affected record to 
become available to the program; that record becomes the current 
record of the run-unit. A FETCH conmand is logically identical 
to execution of a FIND followed by a GET of all data itans in 
that record. 

2. Refer to the discussion of the FIND statonent. 

3. Refer to the discussion of the GET statanent. 
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******** 

* FIND * 
******** 



Function 



Tine FIND statement specifies a record occurrence as: 

1. The current record of the run-unit. 

2. The current record of tte area in v^ich it is stored. 

3. The current record of its record-name. 

4. The current record of set for all set-names in which it currently 
participates as ovmer or member. 

A prior SUPPRESS may prevent the establishment of the object record 
occurrence as: 

1. Ihe current record of the area in vAiich it is stored. 

2. Ihe current record of its record-name. 

3. The current record of set for all, or specified sets in vi*iich it 
currently participates as an ovaier or monber. 

General Format 
FIND rse 

Syntax Rules 

See RECORD SELECTION EXPRESSION (rse) 

NOTE: 
Refer to rse for a discussion of the record-selection-expression. 

Gerteral Rules 



1. Execution of a FIND statonent causes the record referenced by the 
record-selection-expression to become the current record of the 
run-unit. 

2. Execution of a FIND statement does not make the selected record 
available to the program - it merely identifies the record for 
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use in certain subsequent statonents. These include: GET, 
MODIFY, INSERT, REMOVE and DELETE. 

3. If the suppression of updating currency indicators has not been 
set, the object record alsD becomes the current record of its 
area-name, the current record of its record-name, and the current 
record of all set-names in v*iich it is defined as an owner or in 
vrfiich it currently participates as a manber. 

4. Ttie effect of a SUPPRESS conmand or a series of SUPPRESS commands 
is to specify the area, record, set, and set-name currency 
indicators which are to retain their existing status. 

5. If any of the following conditions are encountered, the FIND 
statanent is not successfully executed, the database remains in 
the state existing prior to the attonpted execution, ard the 
appropriate Error Status Condition code is made available in 
special register ERSTAT. Otherwise, ERSTAT is set to zero, 
indicating successful execution of the FIND statement. 

o If the sought record is in an area vAiich has not been opened. 
Error Status Condition 0301 results. 

o If any record occurrence along the search path of the FIND 

statanent is in areas which are off-line or under the 

exclusive control of a concurrent run-unit. Error Status 
Condition 0318 results. 

o If any current record of the type specified is not known. 
Error Status Condition 0306 results. 

o If a database-key is sujplied or developed v^ich is 
incompatible with the areas specified. Error Status Condition 
0302 results. 

o If an end-of-set, end-of-area, or end-of-Dups condition is 
encountered. Error Status Condition 0307 results. 

o If no record in the area satisfies the FIND specified. Error 
Status Condition 0326 results. 

o If a specific record type is sought in a set occurrence or is 
used in a FIND to define the current set occurrence of a set, 
and the record type is not defined as a member of the set in 
the schana, Error Status Condition 0340 results. 

o If AREA- ID is initialized with an area-name not included in 
the WITHIN clause in the schana EDL, Error Status Condition 
0323 results. 

o All data items, areas, records, and sets specified in a FIND 
statement must be defir^ in the invoked subschana; 
otherwise. Error Status Condition 0346 results. 
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Error Status Codes For the FIND Statement 



Content of 
Cond it ion EPPOR-STATOS 



Area not open 0301 

Database-key inconsistent with area-name 0302 

Data items invalid or inconsistent 0304 

Current record of set, area, record-name not known 0306 

End of set or area or DUPs 0307 

Implicitly referenced area not available 0318 

Record not currently a member of named set 0322 

Illegal area-name 0323 

No record satisfies the FIND specified 0326 

Concurrent access error 0335 

Attempted to find ovmer of a singular set 0333 

Record type not a monber of named set 0340 

Record type not owner of named set 0341 

Record type not included in named area 0342 

Arguments of Location Mode Clause not included in subschema 0343 

Arguments of Set Occurrence Selection Clause not included 

in subschema 0344 

Location mode of record not specified as CftLC 0345 

Specified data item, record, set, or area not in subschema 0346 

Fatal - privacy breach attempted -0304(0304F) 
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Exanples and Discussion ot the FIND Statement 

See the Examples and Discussion under Record Selection Expression. 
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******* 

* GET * 
******* 



Function 

Transfers the contents of the specified data itons of the object record 
occurrence into the User Work Area for the invoked subschema. 

General Format 

GET [dbid-1 , dbid-2...] 



Syntax Rules 

1. Ebid-1, dbid-2..., must be itoms defined in the subschema as 
being in the record type of the current record of the run-unit. 



General Rules 

1. Ihe object of the GET statonent is the current record of the 
run-unit. 

2. Ihe record-name of the object record serves as an implicit major 
qualifier for the data-base- identifiers. If they are not defined 
as part of the record type. Error Status Condition 0504 results. 

3. in cases vi*iere the format of a data iten, as defined in the 
subschona invoked by the run-unit, differs from the definition of 
that data iton in the schana: 

o The standard EMLCP procedure will be in accordance with the 
rules specified in the TYPE clause of the Schema EDL and the 
TYPE specification of the Subschana EOL for FORTRAN. 

4. Missing data items in the object record occurrence in the 
database will result in null-values being placed, for those data 
itans, in the User work Area, the value of a null iten is as 
follows : 

o For itons typed nuneric, the item is set to zero. 

o For itans typed string, the item is set to blanks. 

o For items typed logical, the item is set FALSE. 

5. A GET statement must be executed before any reference can be made 
to the data of the object record in the Lteer work Area. 
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6. If only "GET" is written, then all data items defined for the 
object record in the subschema invoked by the run-unit are moved 
to the user Work Area. If dbid's are specified, only the 
specified data itons are moved to the User Work Area. 

7. If the current record of the run-unit is not known, Error Status 
Condition 0513 results. 

8. If the run-unit has not satisfied the privacy locks on all data 
itons and records needed to execute the GET, Error Status 
Condition 0504F will result and the run-unit will be aborted by 
DMIJCP. 

9. If a dbid v*iich is implied or specified in the GET statement is 
dimensioned in the invoked subschema, DMLCP will place a value in 
each elemoit of the dimaisioned item. If the dimension in the 
User work Area is greater than the nunnber of multiple values of 
the iton in the object record occurrence, the excess elements of 
the itan in the User Wbrk Area will be set to the appropriate 
null-value (see general rule 4) . 

10. If the value of any data iton in the database is such that it 
cannot be converted to the specified subschona format for that 
data iton. Error Status Condition 0519 results. {Conversion 
rules are included under the description of TYPE clause in the 
DDL for the SCHEMA and TYPE specification in the subschema DDL 
for FORTRAN.) 

11. If any of the above Error Status Conditions is encountered, then 
the GET statement is not successfully executed. Hie record in 
the User Work Area is in an undefined state and the appropriate 
Error Status Condition code is made available in special register 
ERSTAT. Otherwise, EESTAT is set to zero, indicating successful 
completion of the GET statement. 
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Error Status Codes For The GET Statement 



Content of 

Condition ERKOP-STATUS 

Data item invalid or inconsistent 0504 

No current record of run-unit 0513 

Conversion of value of data item not possible 0519 

Concurrent access error 0535 

Specified Database identifier not included in subschema 0546 

Fatal - privacy breach attempted -0504(0504F) 
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Examples and Discussion of the GET Statanent 
#GET mAHE, FwAME, MN^iE, iX)B 

This cofrmand moves the contents of INAME, FNAME, MC^E, DOB from the 
record to the user Kbrk iSurea. It assunes that the current record of 
run-unit has these itans defined within it and that the subschema has 
declared them. If necessary, conversion is performed on these itans to 
change thou from the schema type to the subschema type. Only the named 
itons will be obtained frcm the record. The rest of the variables in 
the User Wbrk Area are left unctenged. 

#GET 

This carmand gets all the data itans from the schana for the record 
type v*iich is current of run-unit and places than in the User Wbrk 
Area. 
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****** 

* IF * 
****** 



Function 

The IF statement causes a condition to be evaluated. ihe subsequent 
action of the run-unit depends on whether the value of the condition is 
true or false. 



General Format 



Pormat 1 

fortran-label- 



IF set-name-l SET [NOT] EMETY 



NEXT 



it 



ELSE fortran-label-2 



Format 2 



IF RECORD [NOT] f,¥.^^^\ OF ^t-name-2 fortran-label-3 

— ■ - ■ " - ^^^^M OmER I M^Y SET NEXT 

[ELSE fortran-label-4] 



Syntax Rules 

1. Set-name-l, Set-narae-2, must be defined in the invoked subschona. 

General Rules 

1. Set-name-l, set-name-2 must be defined in the invoked subschema; 
otherwise. Error Status Condition 1846 results. 

2. Fiormat 1 of the IF statement is designed to determine v*iether the 
object set occurrence has any menbers. ihe object set occurrence 
is determined by the current record of set-name-l. If the NOT 
phrase is emitted and the set occurrence does not have any manber 
records, the condition is evaluated as true. If the NOT phrase 
is emitted and the set occurrence contains member records, the 
condition is evaluated as false. If the NOT piirase is stated, 
the condition is reversed. 

3. Format 2 of the IF statonent is designed to determine whether the 
PEV. 3-38 



IDR3045 FORTRAN DATA MANIPULATION 



current record of the run-unit currently participates as an ovmer 
or moitoer, depending on the option specified, in set-nanie-2 or in 
any set. If the NOT j*irase is emitted and the record is an owner 
or mattoer as specified, the condition is evaluated as true. If 
the NOT j*irase is emitted and the record is not an ovaier or 
manber as specified, the condition is evaluated as false. If the 
NOT jAirase is stated, the condition is reversed. If neither the 
CWNER nor MEMBER jAirase is specified, the test is of the 
association as an owner or manber of the object record with the 
specified set. 

4. If the current record of the run-unit is not known. Error Status 
Condition 1813 results. 

5. If the current record of the set-name specified is not known or 
the currency indicator is null, then the object set occurrence 
cannot be determined and Error Status Condition 1806 results. 

6. If any of the above Error Status Conditions is encountered, then 
the IF statement is not successfully executed. The condition 
stated in the IF statanait will be left unevaluated and the 
appropriate E3:ror Status Condition code is made available in 
special register ERSTAT. 
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Error Status Codes for the IF Statement 



Content of 
Condition ERSTAT 



Current of set not known 1806 

No current record of run-unit 1813 

Specified set not included in subschema 1846 
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Exanples and Discussion of t±ie IF Statement 
Example 1 

#IF EEPP-SET SET EMPTY NEXT EI£E 99 



99 COOTINUE 

The IF caimand allows the aEplication programmer to test for a nunber 
of conditions within the EBMS. "flie test in example one checks to see 
if there are any manbers of the "DEPT-SET" . If the set is empty, 
control passes to the next statonent; otherwise, control passes to 
stataitent 99. 



Example 2 

#IF RECORD NOT MEMBER OF I^PT-SET 100. 

In this example, the current record of run-unit is tested to see if it 
is a monber of the DEPT-SET. If it is, control is passed to the next 
statement; otherwise, control is passed to statement 100. 
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********** 

* INSERT * 
********** 



Function 

Inserts and makes the object record a manber of occurrences of the 
specified set-names, provided that it is defined as an optional 
autcxnatic, optional manual, or mandatory manual mennber of those sets. 



General Format 



INSERT INTO 



SETS set-name-1 [, set-name 2] 
ALL SETS 



Syntax Rules 

1. The sets set-name-1, set-name-2, must be defined in the invoked 
subschana . 

2. The record that is the current record at run-unit, must be 
defined as an optional or mandatory manual n^nber of the 
specified sets. If the ALL option is used, the record must be a 
member of at least one of the sets in the invoked subschema. 



General Rules 



1. The object record occurrence of the INSERT statement is the 
current record of the run-unit. 

2. If set-names are specified, then the object record must have been 
defined in the schema as an optional automatic, optional manual, 
or mandatory manual member of each set named. It will be 
inserted into the object set occurrence of each set-name 
specified in accordance with the set-ordering criteria defined in 
the schema. For each set named, the object set occurrence is 
determined by the current record of the named set. 
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o If the current record of any set-name specified is not known 
or its currency indicator is null, Error Status Condition 
0706 results. 

3. The ALL SETS option inserts the object record into the 
appropriate occurrence of each set included in the invoked 
subschema, v*iere it is defined as an optional automatic, optional 
manual, or mandatory manual msnber and in vdiich it is not 
currently a member. The specific occurrence of each set will be 
determined by the current record of set-name for each of the 
set-names involved. The object-record will be inserted into each 
set occurrence in accordance with the set-ordering criteria 
specified in the schana. 

o If the current record of any set-nane implicitly specified by 
AIL SETS is not known or its currency indicator is null. 
Error Status Condition 0706 results. 

4. For each set-name into which the object record is inserted, it 
becomes the current record of set-name if such a currency update 
is not in a 'SUPPRESS' state (see the SUPPRESS conmand) . 

5. If the area in vAiich the inserted record is stored is opened for 
concurrent update and there is a concurrent update conflict. 
Error Status Condition 735 results with OCMTYP set to the 
corrcurrent update conflict type. 

6. If the run-unit has not satisfied the privacy locks for all 
records, sets, areas, and data itans needed to execute the HKERT 
statonent. Error Status Condition 0704F will result and the 
run-unit will be aborted by DMLCP. 

7. In addition to the conditions described, any of the followirq 
conditions will result in an error if they occur during the 
execution of an llBERT statement: 

o If all set-names specified are not included in the subschema. 
Error Status Condition 0746 results. 

o If the current record of the run-unit is not known. Error 
Status Condition 0713 results. 

o If the object record is not defined as an optional automatic, 
optional manual , or marK3atory maiual member of all of the 
specified set-names. Error Status Condition 0714 results. 

o If the object record, when inserted, would violate a 
DUPLICATES NOT ALLCWED clause for any record or set involved, 
Err^MT Status Condition 07*5 results. 

o If the current record of any set-name specified is not known 
or its currency indicator is null. Error Status Condition 
0706 results. 
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o If the object record is already a member of any occurrence of 
a set explicitly named in the DBERT statement, or if it is 
already a member of an occurrence of each set implicitly 
specified by the ALL SETS option. Error Status Condition 0716 
results. This is true v^ether the c^ject record is a manber 
in the object set occurrence or in any other occurrence of 
the same set. 

o If the object record or any record occurrence affected by the 
INSERT statanent is located in an area which is open for 
PETRIEVAL, Error Status Condition 0709 results. 

o If any record occurrence needed to execute the operation is 
located in areas that are not available. Error Status 
Condition 0718 results. An area is not available if it is 
off-line or under the exclusive control of a concurrent 
run-unit. 

When an error occurs, the database remains in the state existing 
prior to the attempted execution of the INSERT statanent and the 
appropriate Error Status Condition code is made available in 
special register ERSTAT. 
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Error Status Codes for the INSERT Statement 



Content of 

Condition ERROR-STATUS 

————■-■— ——————————————————■--■--•— -T— ————— — — — ——— —— ———— — ———— ■— - "■" " ' - - 

Violation of DUPLICATES NOT ALLOWED clause 0705 

Current record of set-name not known 0706 

Incorrect usage mode for area 0709 

NO current record of run-unit 0713 

Ctoject record not defined as an optional moidDer 

or mandatory manual monber of a named set 0714 

Record already a member of named set 0716 

Implicitly referenced area not available 0718 

Concurrent update conflict 0735 

Specified set-name not in subschona 0746 

Fatal - privacy breach attonpted -0704 (070<F) 
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Exan^les and Discussion for the INSERT Statement 
♦INSERT INTO ALL SETS. 

Ihe current record of run-unit is inserted into all sets of v*iich it is 
not already a merttoer. In addition, if the sets have search keys 
defined, the search key is inserted into its list. The insertion into 
the set is based on the ordering criteria given in the schema. 
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********** 

* INVOKE * 
********** 



Function 



INVOKE is used to indicate that the FORTRAN program is ready to use the 
DMICP services and to establish the program as a DBMS user. 

It is also used to invoke the use of the subschema specified in the 
subschona declaration. 

General Format 

INVCKE Dais 

Syntax Rules 
None. 

General Rules 



1. The INVOKE statement must be executed before any other DML 
statenoit. Before it is executed, all other DML statements 
executed by the FORTRAN program will be ignored by DH4S. 

2. The INVOKE statanent causes a connect sequence to establish the 
FORTRAN program as a run-unit under Prime VEfiS. 

3. If the schema or the subschema which the run-unit wishes to use 
is not available to the I^MS, a fatal error occurs and the 
run-unit will be aborted. 
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Error Status Codes for the INVOKE Statement 



Content of 
Condition ERSTAT 



Invoke has already been executed 1403 

Fatal - invoked subsct^ma has been deleted from DBMS -1401(1401F) 

Fatal - invoked schema has been deleted fron DBMS -1402(1402F) 



Exanples and Discussion 
NOne. 
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********** 
* MODIFY * 



Function 



The Ma)IFY statement replaces the values of all, or of specific data items of the 
object record occurrence in the database, with values from the User Work Area. 

General Format 

M3DIFY [dbid-1 , dbid-2...] 

Syntax Rules 

1. dbid-1, dbid-2..., must be defined as itans of the record that is the 
current record at run-unit. 

General Rules 



1. The object record occurrence of the VICDIFY is the current record of the 
run-unit. If the current record of the run-unit is not known, the MCDIFY 
statement is not executed and Error Status Condition 0813 results. 

2. The record-name of the object record serves as an implicit major qualifier 
for the data-base- identifiers, uhey must be defined as part of the record 
type, otherwise, ESrror Status Condition 0804 results. 0804 results. 

3. If data-base- identifiers are not specified, all data itens in the object 
record viiich are specified in the subschema nar^d in the INVOKE clause of 
the program are modified with (i.e., replaced by) values from the Ifeer Vibrk 
Area. Any data item in the object record occurrence in the database vrfiich 
is not specified in the invoked subschana ronains unchanged. 

4. If data-base- identifiers are specified, only the data items specified are 
modified with values frati the User WDrk Area. All other data items in the 
object record occurrence in the database remain unchanged. 

5. In cases viiere tbe definition of a data itan in the subschema invoked by 
the run-unit differs from the definition of that data it«n in the schema, 
conversions performed by DMLCP will be in accordance with the rules 
specified in the TYPE clause of the Schana HJL and the TYPE specification 
of the subschana WL for FORTRAN. 

6. If any of tJie; nKx3if ied dat^ itans is ^^^^^^ itan in the 
object record for any set occurrence in vAiich the object is currently a 
member, then its modification causes the intra-set occurrence position of 
the object record to be examined. If necessary, the object record is 
ranoved and re- inserted in the set occurrence to maintain the set order 
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specified in the schema. The current occurrence of the set-name involvei^ 
renains as the current occurrence. 

If the current of run-unit is the current of the set-name involved, it 
ronains as the current of set-name. If it is not, it becomes the current 
of that set-name if such a currency update is not in a 'SUPPRESS' state 
(see the SUPPRESS comiand) . The database-key of the object record remains 
unchanged . 

7. If any of the modified data items are defined with a SEARCH KEY clause in 
any set in viiich the object record is currently a member, then the 
execution of the VCDIFY statonent causes EMLCP to adjust the indices it 
maintains for those data items. Ihe database-key of the object record 
remains unchanged. 

8. If any of the modified data items is defined as a CALC key in the LOCATICftji 
MCOE clause for the object record, then the execution of the MCCIfH 
statement causes the DMLCP to make the necessary adjustments viiich will 
enable the record to be found on the basis of the new values for the CALC 
keys. Ihe data itan (if any) specified as AREA-ID must also be initialized 
with an area-name specified or implied for the record type; otherwise. 
Error Status Condition 0823 results. 

9. If the insertion of the object record under any of the conditions described 
in general rules 6, 7, or 8 would violate a DUPLICATES NOT ALI£S«ED clause 
(defined for any of the sets or records involved) , then the MCDIPrf 
statanent is not executed and Error Status Condition 0805 results. H 

10. All data items involved must be initialized in the User Wbrk Area with the 
required values prior to execution of the MCCIFY statement. 

11. If the run-unit has not satisfied the privacy locks for all records, sets, 
areas, and data items needed to execute the MCOIFY, Error Status Condition 
0804F will result and the run-unit will be aborted by DMLCP. 

12. If the object record or any record occurrence affected by the execution o^ 
the MODIFY statonent is located in an area v*iich is open for RETRIEVAL, 
Error Status Condition 0809 results. 

13. If the area in v^ich the modified record is opened for coix:urrent update 
and there is a concurrent tpSate conflict. Error Status Condition 0835 
results and CCNTYP is set to the concurrent update conflict type. 

14. If any record occurrence needed to execute the operation is located in 
areas that are not available. Error Status Condition 0818 results. An area 
is not available if it is off-line or under the exclusive control of a 
concurrent run-unit. 

15. If the value of a data item in the User work Area is such that it cannot be 
converted to the format specified in the schema for that data itan. Error 
Status Condition 0819 results. 

16. Uhder all Error Status Conditions described in the above general rules, the~ 
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database remains in the state existing prior to the attanpted execution of 
tte MCDIFY stateniOTt, and the appropriate Error Status Condition code is 
made available in special register EE<STAT. Otherwise, ERSTAT is set to 
zero, indicating successful execution of the MODIFY statement. 
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Error Status Codes for the ^DDIFY Statement 



Content of 
Condition ERROR-STATUS 



Database-key inconsistent with area-naine 0802 

Data items invalid or inconsistent 0804 

Violation of DUPLICATES NOT ALLOWED clause 0805 

Incorrect usage mode for area 0809 

NO current record of run-unit 0813 

Implicitly referenced area not available 0818 

Conversion of value of data itan not possible 0819 

Illegal area-name 0823 

Concurrent update conflict 0835 

Arguments of Location Mode clause not included in subschema 0843 

Argunents of Set Occurrence Selection clause not included 

in subschema 0844 

Specified set not included in subschana 0846 

Fatal - privacy breach attempted -0804(0804) 
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Examples and Discussion of the MCBIFY Statement 

Example 1 

#MODIFY UHAME, FWAME 

The MODIFY cormand allows the application prograraner to change the 
contents of a given record. Ihe MODIFY caimand always operates on 
the current record of run-unit. In the example above, the fields 
INAME, FNAME in the record will be replaced by the contents of the 
fields in the user Vtork Area.- The items named must be defined in 
the subschema and be contained in the record that is current record 
of run-unit. 

In addition to changing the contents of the fields, if the items 
make up any part of a sort, the list is reordered to reflect the 
new ordering with the new value. If the iton is a Q^iC key, the 
record is recalced to reflect the value of the new key. 

Example 2 

#MM)IFY 

Ihis form of the MCOIFY ccninand replaces the entire contents of the 
record, vAiich is current of run-unit, with the contents of the User 
Work Area. It does all conversions called for between schana types 
and sidDschana types. It also re-orders any set list which contains 
items that are sort or search keys, and if the record has a 
location mode CAIC, the record is recalced to reflect the new value 
of the CALC keys. 
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******** 

* MOVE * 
******** 



Function 

The MOVE statement saves the contents of the specified currency status 
indicators and provides a means for deriving the area-name or 
record-name which corresponds to a database-key. 



General Format 



Format i 



HUN-UNIT 



, RECORD record-name 
MOVE CURRENCY STATUS FOR j ^^^ea-name 

SET set-name 



TO identifier-1 



Format 2 



MOVE 



RECORD-NAME 
AJREA-NAkE 



im-UtilT 
J REO OjRp record-name 
FOR (^EA area-name 
SET set-name 
'identifier-2 



■ TO identifier-3 



Syntax Rules 

1. The specified record-nan«, area-name, or set-name, must be 
included in the invoked subschema. 

2. Identifier-1, identifier-2, must refer to data itons that are 
used as Database-Keys. ldentifier-3 must be an integer array 
which is able to contain a string 30 characters long. 



General Rules 

1. The specified record-name, area-name, or set-name must be 
included in the invoked sub-sctema; otherwise. Error Status 
Condition 1946 results. 

2. Identifier-1 and identifier-2 are assuned to be three-word 
integer arrays (i.e., FORTRAN variables meant to contain 
database-keys) . For more detail about the representation of a 
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database-key, refer to the TYPE clause in the Sctema EOL and the 
TYPE specification in the Subschema M)L for FDKTRAN (See Section 

^) . 

3. Identifier-3 is assuned to be a FORTRAN variable vAiich can 
contain a 30 character string, two characters packed per word 
(i.e., a 15-v?ord INTE(2K*2 array). 

4. In Format 1, if the RUN-UNIT j^irase is specified, the 
database-key for the current record of run-unit is placed in 
identif ier-1 . ihe current record of the run-unit is not altered. 
If a record-name, area-name, or set-name is specified, the 
database-key for the current record of record-name, area-name, or 
set-name is placed in identif ier-1 . The current record of 
record-name, area-name, or set-name is not altered. If the 
current record is not known or the currency indicator is null. 
Error Status Condition 1913 results. 

5. Use of Format 2 causes EMICP to return, in identifier-3, the name 
of the area or record which corresponds to the database-key in 
identif ier-2 or to the currency indicator specified. If a 
currency indicator is specified and the current record is not 
known or the currency indicator is null. Error Status Condition 
1913 results. 

6. When an error occurs, the database, and all of the run-unit's 
FORTRAN variables remain in the state existing prior to the 
attanpted execution of the MOVE statement. 
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Error Status Codes for the MOVE Statement 



Content of 
Condition ERSTAT 

No current record of run-unit 1913 

Specified record, area, or set not included 

in subschema 1946 
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Examples and Discussion of the M3VE Statement 

Example 1 

#MDVE CUPRENCY STATUS FOR REC(M) EMPLOYEE TO IDl 

ahis statement takes the database-key vAiich is the currency status for 
the record EMPLOYEE and moves it to the PORH^AN identifier IDl. The 
run-unit can later refer to the record by a 

#FI^3D IDl. 

To establish the record as current of run-unit. 

Example 2 

#MOVE AREA-NAME FOR IDl TO ANAME 

This statonent gets the 30-character Area-name of the IBK defined in 
FDl and moves it to the 15-«ord FORTRAN array ANAME. 
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******************* 

* C»J ERROR CLAUSE * 
******************* 

Function 



Itie (3^ ERROR clause specifies v*iere program control is to be 
transferred if the DBMS encounters an error during the execution of a 
EML command. 



General Format 



Format 1 

;0N MJL ERRORS GO TO fortran-label 

Format 2 

; 0N ERROR integer-1 (,integer-2] ... GO TO fortran-label ... 

[ Oti EBBCR integer-3[,integer-4] ... GO TO fortran-label] ... 
[g^ amER errors go to fortran-label] 
Syntax Rules 

1. integer-1, integer-2, ... are IwrEGER*2 values of the form: 

MMEE 
where MM is the major code of the ccmmand 
EE is the error code 
The major code is an optional specification 

2. No check is ever made to verify that the values specified by 
integer-1, integer-2... can actually occur. If an invalid code 
is used, no branch will ever be taken at run time. 

3. Label must be a valid FORTRAN Statonent label known to this 
program. 

General Rules 

1. The CN EBBCB clause may be aj^nded to any DML command. 

2. If an error is detected, the EEMS returns to the statonent 
specified by the appropriate ON ERROR clause (if any) . 
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3. Ihe CN EPROF clause refers only to the cotimand of vAiich it is a 
part. 

4. If an error is detected and there is no error clause, control is 
returned to the run-unit at the statement following the DML 
coranand. Ihe run-unit may test the register ERSTAT to see if an 
error occurred. If EI^TAT is 0, then no error has occurred; 
otherwise, ERSTAT will be of the form MMEE 

v*iere I'M is the major code 

EE is the error code 



5. If an error has occurred, no further EML statements may be 
processed until a CI£AR ERROR coimand has been executed. 

6. If another EML statonent is executed before a CI£AR ERROR canmand 
is executed, or if a fatal error has occurred, the run-unit is 
iinnediately aborted and the special registers are dumped to the 
terminal . 

7. Whenever the execution of a EML statement results in an Error 
Status Condition, the following information is available to the 
run-unit: 

o The Error Status Condition code is available in tl^ special 
FORTRAN integer variable ERSTAT. 

o Ihe name of the area in vdiich the error occurred is available 
in the 15 word integer array ERAREA. 

o Ihe name of the set, if appropriate, in v*iich the error 
occurred is available in the 15 word integer array ERSET. 

o Ihe name of the record, if ajpropriate, for which the error 
occurred is available in the 15 word integer array ERREC. 

o If ERSTAT contains an error code of 35 vrfmich indicates a 
concurrent update conflict, then the register OCNTYP contains 
a code indicating the type of concurrent update conflict. 

o The name of the itan, if appropriate, for viiich the error 
occurred is available in the 3-word integer array ERITEM. 

o ERCASE contains the conditional value of an error return for 
a computed GO TO statanent. 

o The nunber of tte current transaction can alwaj^ be found in 
TRNO. 

o Ihe type of the current transaction can be found in TRTYPE 
where l=update transaction and 0=retrieval transaction. 
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8. A summary of the major codes, error codes and concurrent update 
conflict codes may be found in Section 4. 



Examples and Discussion for the ON ERBDR Clause 
Example 1 

# FIND NEXT RECORD EMPLOYEE OF SET DEPT-SET; 

ON ERROR 307 GO TO 100 

50 CONTINUE 

100 WRITE (1,1001) 

1001 FORMAT ( ' END OF SET ENCCUNTERED. ' ) 

Itiis example shows a find statennent with an error clause. If an end of 
set is encountered, control will pass to statement 100; otherwise 
control will pass to the next statement. If an error other than 307 
occurred, no other FDML statement may be executed until a clear error 
comnand has been executed. 

Example 2 

# FIND RECORD DEFT. 

IF (ERSTAT.NE.0) GO TO 100 



100 

100 WRITE (1,1001) ERSTAT 

1001 FOraiAT ('DBMS ERHDR' , 15) 

# CLEAR ERROR. 

Example 2 danonstrates an alternate form of EeMS error detection. If 
the FIND in the exanple succeeds and there are no errors, ERSTAT will 
be and control will proceed to the next statement. Otherwise, ERSTAT 
will be nonzero and control will be passed to statonent 100 v^iere the 
error is written to the user terminal and the error status is reset by 
the CLEAR ERROR COTinand. 
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******** 

* OPEN * 
******** 



Function 



The OPEN statanent specifies an area's usage-mode and prevents the 
run-unit's access to the area until such usage can be permitted. 



General Format 



Format 1 



OPEN ALL AREAS 



USAGE-MODE IS [EXCLUSIVE 1 l^RIEVAL I 
I PROTECTED J UPDATE 



Format 2 



OPEN AREA [S] area-name-1 [, area-name- 2] 



USAGE MODE IS 



EXCLUSIVE] 
PROT ECT'EDJ 



RETRIEVAL I 
UPDATE 



Syntax Rules 

1. Area-name-1, area-name-2, must be names v*iich are included in the 
invoked subschema. 



- 61 



July 1977 



SECTION 3 IDR3045 



General Rules 



1. Area-name-l , area-name-2, must be the names of areas included in 
the subschema invoked; otherwise. Error Status Condition 0946 
results. 

2. The OPEN ALL format refers to all the areas included in the 
stdDschema invoked by the run-unit. 

3. Because of the file-level deadlock prevention plan of DMLCP, an 
OPEN can only be executed if the run-unit has no areas already 
open. Otherwise, Error Status Condition 0929 results. Thus, you 
must open any areas together that will be needed simultaneously; 
you are requested, ^ditionally, to open no more areas than you 
will need at one time, and to close all areas during any 
relatively long interval v^en you are not using DBMS services. 
The CLOSE statonent, unlike the OMW, may close a siijset of the 
areas open. 

4. Use of the USAGE-MODE IS RETRIEVAL E*irase (without the EXCLUSIVE 
or PROTECTED jAirases) allows concurrent run-units to open the 
same area with any usage-mode other than one which is exclusive. 

5. Use of the USAGE-fCOE IS UPDATE pAirase (without the EXCLUSIVE or 
PROTECTED phrases) allows concurrent run-units to open the same 
area with any usage-mode other than one vAiich is exclusive or 
protected. See rule 8 below. 

6. If the UBAGE-MCDE pnrase is not used, then retrieval without the 
exclusive or protected option, called "concurrent retrieval", is 
assuned. 

7. Use of the EXCLUSIVE phrase prevents concurrent run-units from 
interacting with the same area in any usage-mode. 

8. Use of the PRCTBCTED piirase prevoits concurrent update and allows 
concurrent retrieval within the same area if and only if 
before- imaging is turned off and concurrent update is not allowed 
by the Data Administrator. Otherwise, protected ipdate and 
protected retrieval are the same as simple update and simple 
retrieval. 

9. All specified usage-modes ronain in effect until the run-unit 
issues a CLOSE statement for the specified areas, or until the 
run-unit terminates. 
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10. TO execute a FIND, STORE, DELETE, INSERT, MODIFY, or REMOVE 
statement successfully, the run-unit must have previously opened 
(as relevant to the statanent being executed) : 

o Ihe area that contains the object record of a FIND statement, 

o Ihe area into vAiich a record is to be stored. 

o All areas containing any record occurrence v^ich would be 
deleted or removed as a result of a DELETE statement. 
Otherwise, Error Status Condition nn01 results, where nn 
indicates the particular DML statement being attempted. 

11. In addition to the areas containing the object records of the 
statonents cited above, there are additional, implicit areas 
which can be impacted by DML statements. The impact can be of 
two forms: 

o DMLCP requires information contained within the implicit 
area, in v*iich case the area must be 'available'. For an 
area to be available, it must not be under exclusive control 
of a concurrent run-unit. It must be open for the requesting 
run-unit. If an implicit area is not available, Error Status 
Condition nnl8 results (vAiere nn indicates the particular DML 
statemoiit attempted.) 

o Ihe DMLCP must alter the information contained in record 
occurrences within the implicit area, in viiich case the area 
must not only be available but it must permit the necessary 
alterations. Such implicit areas are deemed to be 
'affected', and must be OPEN. If an implicit area which is 
affected is not open. Error Status Condition nn21 results 
(where nn indicates the particular EML statement attempted) . 

12. Record occurrences which are in the search path of the sought 
record of a FIND statonent, or in the search path of the sought 
record of an implicit find which occurs during the execution of a 
STORE statonent, must be in areas v^ich are open. 

13. To execute an INSERT, REMOVE, STORE, K:LETE, or MODIFY statement 
successfully, both the explicit and the affected implicit areas 
involved must be open with a us^e-roode of update. If any of the 
areas involved are open for retrieval. Error Status Condition 
nn09 will result, (where nn indicates the particular DML 
statement attanpted.) 

14. Any attotipt to execute an OPEN statement v*ich would result in 
usage-mode conflict for an area will result in Error Status 
Condition 0931. The user can then choose to program a wait 
sequence or go on to do something else. 

o The following table reflects usage-mode conflicts with an 
'N' , and permitted concurrency with a 'Y'. 
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o usage-mode conflict occurs when any of the usage-mode 
combinations marked with an 'N' applies to an area as a 
result of a concurrent run-unit attempting to execute an open 
against it. 

o In the shaded areas (see Figure 3-1) the usage-mode conflict 
occurs only if be fore- imaging is turned off. 
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FIGURE 3-1. USAGE-MODE RULES 



15. An attonpt to execute an OPEN statenent on an area for vAiich the 
run-unit has not satisfied the privacy locks will result in Error 
Status condition 0904F and the user will be aborted. 

16. If none of the Error conditions described above occurs, ERSTAT is 
zero, indicating successful execution of the OPEN statonent. 

17. If the total of areas opened by all concurrent run units exceeds 
an implementation limit. Error Status Condition 0905F results and 
the user will be aborted. 



- 65 



July 1977 



SECTION 3 



IDR3045 



Error Status Codes for the OPEN Statement 



Condition 



Content of 
EFSTAT 



Area not physically available 

Violation of deadlock protection rule 

Open blocked 

Specified area-name not in subschema 

Fatal - privacy breach attempted 

Fatal - attempted to open too many areas simultaneously 



0928 

0929 

0931 

0946 

-0904(0904F) 

-0905{0905F) 
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Exanples and Discussion for the OPEN Statement 

Example 1 

#OPEN AIL AREAS. 

This carmand will make available all areas viiich have been defined in 
the subschona, for a usage- mode of simple retrieval. 

Example 2 

#OPEN AREAS AREA-1, AREA-2, USAGE-J03E IS EXCLUSIVE UPDATE AREAS 
AREA-3, AREA-4 USAGE MCDE IS RETRIEVAL 



This canmand will make available AREA-1 and AREA-2 for exclusive update 
and AREA-3 arri AREA-4 for concurrent retrieval. This is the only way 
different areas are allowed to be open for different usage-modes. The 
execution of two open commands would violate the dead lock prevention 
schane in the OBMS. 



Example 3 

#OPEN AIL AREAS USAGE-MODE IS PROTECTED RETRIEVAL 

This form of the open canmand would open all areas defined in the 
sctoschana. The actual usage mode depends on several factors. If 
concurrent update mode and before-imaging are turned off by the Data 
Administrator module, then the usage mode would be protected retrieval. 

If concurrent update were allowed and be fore- imaging was on, then it is 
possible that there would be concurrent updates but the application 
program would be guaranteed a consistent view of the database for the 
duration of each transaction. 
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*************** 

* PRIVACY KEY * 
*************** 



Function 



Ihe PRIVACY KEY establishes the program and run-unit authority to 
execute classified EML imperative-statements in accordance with the 
locks declared in the schema. 



General Format 



Format 1 



PRIVACY KEY (FOR 



EXCLUSIVE 
^ TECTED 

EXCLUSIVE 
EROTECTED 



RETR IEVAL 
UH)ATE 



]0F 



MiEPiS area-name-1 [,area-name-2] 
ALL AREAS 



IS lliteral-1 
identifier-1 



Format 2 



PRIVACY KEY [FOR 



REST 

STOI^ 

GET 

MODIFY 

INSERT 

REMOVE 

DELETE MANDATORY 

DELETE SELECTIVE 

DELETE ALL 

FIND 



> ] OF 



-/ 



RE CORDS record-name-1 [,record-nanie-2] 
ALL RECORDS 



IS 



literal-2 
identifier-2 



Format 3 

PRIVACY KEY (FOR 



REST 
STORE 



TBBiFY 



]0F DATA-IIEMS dbid-1 [,dbid-2] 



IS 



literal-3 
identifier-3 
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Format 4 



PRIVACY KEY [FOR 



INjSERT 
REtoWE 



] OF 



SETS set-name-l [,set-name-2] 
ALL SETS 



IS 



literal-4 
identifier-4 



Syntax Rules 



1. Multiple PRIVACY clauses that differ only in the specification of 
the key are not permitted. 

2, All identifiers must be defined in the FORTRAN source program. 



General Rules 



1. Literal-l, 2, 3, and 4 are PRIVACY KEYS: Identif ier-1 , 2, 3, and 
4 are intended to contain PRIVACY KEYS. 

2. If the optional FOR phrase is canitted, the PRIVACY KEY clause 
applies to all functions that could have been specified. 

3. Any database- identifiers, records, sets, or areas named which are 
not included in the invoked subschema will be ignored. 

4. If a PRIVACY LOCK has been declared in the schema, a PRIVACY 
conmand must be executed at run time to allow usage of the 
function even if no lock value has been assigned. 

5. If the specified area-name, record-name, set-name or ffilD-narae is 
not contained in the subschana. Error Status Condition 1846 
results. 
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Examples and Discussion for PRIVAGf KEY 

DIMENSION LOCK (15) 
WRITE (1,1000) 

1000 FORMAT ('ENTER KEY FOR OPEN WITO USAGE-MODE OF UPDATE') 
READ (1,1001) IjOCK 

1001 FORMAT (15A2) 
#INVOKE raMS 



#PRIVACY KEY FOR UPDATE OF ALL AREAS IS LXK. 
#OPEN ALL AREAS IBAGE-^TODE IS UPDATE. 



This example illustrates the use of a PRIVACY command in a run-unit. 
The sample program reads a 30-character string frati the user terminal; 
it then invokes the ESMS and passes the key to unlock the open for 
update. If an improper key is passed, the open ccranand will fail. If 
the proper key is passed or the Data Administrator has not yet defined 
the key value, the open will succeed. 

The PRIVACY KEY ccninand can be executed any time before the entity with 
a lock defined for a particular operation is accessed in that type of 
operation. 
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************************************** 

* RECORD SELECTION EXPRESSIONS (rse) * 
************************************** 

Record selection expressions are used to specify the criteria by vrfiich 
raMS is to select a record in the database. The selected record 
becomes tte current record at the run-unit, upon v^ich si±)sequent 
statonents may operate vAien accessing the database, 

Ihere are six formats of the record selection expression, ihese 
formats permit both relative arxS absolute selection criteria in v*iich 
records may be selected accordir^ to their contents, their database key 
value, or by currency indicators. If a currency indicator is used, 
either a current record or a record related to a current record is 
selected. 

!Ihe record selection expression may only occur on a FIND or a FETCH 
statement. 
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RECDRD SEIECnON EXPKESSIONS (rse) 



Format 1 



USING identifier-1 



Format 2 



g 



OWNER 



MEMBER 



IN set-name- OF 



CURRENT OF 



— ^-^w^^^'- 



RECORD record-name-2 
SET set-name-4 
A RE A area-name-1 
RW4-UNIT 



Format _ 3 

NEXT 
PRIOR 



FIRST 
LAST 

int'eger-l 
identifier-2 



■ RECCM) (record name-3] OF 



SET set-name-5 
AREA area-name-2 ' 



Format 4 

[NEXT DUPLICATE WITHIN] RECORD record-narae-4 

Format 5 

record-name-5 VIA [ CURRENT OF] SET set-name-7 [ USING dbid-3 [,dbid4]...] 

Format 6 

NEXT DUPLICATE WITHIN SET set-name-8 USING dbid-5 [ ,dbid-6] . . . 
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Syntax Rules 

Format 1^ 

1. Identifier 1 must be a three word INTEGER*2 array containing a 
database key. 

Format 2 * 

1. Record-name-2 if specified must be defined in the subschema. 

Format 3 ' 

1. Integer-1 may be signed. 

2. The data item referenced by identifier-2 must be of type 
INTEGER* 2 and may be signed or unsigned, 

3. If both record-name-3 and set-name-5 are used, then the record 
must be a member of the named set. 

Format 4: 

1. The record named by record-name-4 must have location mode CALC. 

Format 5; 

1. dbid-3, dbid-4, ... must be items defined within record-name-5. 

Format 6 

1. dbid-5, dbid-6, ... must be item defined within the record v^iich 
is the current record of the set type specified in set-name-8. 

General Rules 
All formats • 

1. Evaluation of a record selection expression results in the 
identification by the DBMS of a specific record in the database. 

2. Records identified by a record selection expression must be 
stored in areas that are in an opened mode, 

3. All records that participate in the DMLCP search for the 
identified record must be stored in areas that are opened. 
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4. Error Statuses defined in the following rules of the form irnixx 
may take the values 03xx if the error occurred on a FIND or 22xx 
if the error occurred on a FETCH. 



Format 1 

1. The record identified is the record v*iose database-key is equal 
to the value of the data iten referenced by identifier-1. 

Format 2 

1. This clause without the CWNER or MEMBER jAirase selects the record 
occurrence that is the current record of the specified 
record-name, set-name, or area-name, or it selects the current 
record of run-unit. 

2. If the current record of ths type specified is not known or its 
currency indicator is null. Error Status Condition nni06 results. 

3. Use of the CURRENT OF RUN-UNIT form of the FIND permits revision 
of currency status indicators vAiich were previously suppressed. 

4. Set-name-3 and set-name-4 may be the same set-name or different 
set-names , 

5. If the CWNER j^rase is used, the occurrence of set-name-3 whose 
owner is to be selected is identified by the specified current 
record. Set-name-3 must not be a singular set; otherwise. Error 
Status Condition nin33 results. 

6. If the specified current record is not of a record type defined 
as a monber of the set in the schema. Error Status Condition nin40 
results. 

7. If the specified current record does not currently participate as 
a member of any occurrence of set-name-3, and if it is not known 
as the current record of set-name-3 by the run-unit. Error Status 
Condition inn22 results. 

8. If the MEMBER phrase is used, the record selected is the first 
manber (in terms of logical order of the set) in the set 
occurrence of set-name-3 owned by the specified current record. 

9. If the specified current record is not of the record type defined 
to be the owner record type of set-name-3 in the schema. Error 
Status Condition inn41 results. 

10. If the set occurrence of set-name-3 owned by the specified 
current record is null. Error Status Condition mm26 results. 
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Format 3 

1. In Format 3, if the record-name-3 phrase is used, only 
occurrences of record-name-3 will be considered in evaluating the 
record selection expression. If area-name-2 is stated, then the 
WITHIN clause for record-name-3 must include area-name-2; 
otherwise. Error Status Condition imi42 results. If set-name-5 is 
stated, record-name-3 must be defined as a member of set-name-5; 
otherwise, Error Status Condition iMn40 results. 

2. If a set-name is specified, the set occurrence fran which the 
object record is to be selected is identified by the current 
record of the specified set. If the current record of that set 
is not known or its currency indicator is null. Error Status 
Condition mnn06 results. 

3. If an area-name is specified, the object record is selected from 
the named area. If the named area is not open. Error Status 
Condition nin01 results. 

4. If the NEXT or PRIOF phrase is used and an area-name is 
specified, and the current record of the named area is not known 
or its currency indicator is null. Error Status Condition 0306 
results. 

5. NEXT RECORD OF area-name AREA means the record jiiysically closest 
in the "next" direction to the current record of the named area. 
If there is no siKh record in the area named. Error Status 
condition irm07 results. 

6. PRIOR RECORD OF area-name AREA means the record jAiysically 
closest in the "prior" direction to the current record of the 
named area. If there is no such record in the area named. Error 
Status Condition nin07 results. 

7. NEXT RBCCM) OF set-name SET means the subsequent record relative 
to the current record of the named set in the logical order of 
the set regardless of the database-key sequence. If the set is 
empty, that is, no member record occurrences participate in the 
set. Error Status Condition nin26 results. If the current record 
is the last record in the set. Error Status Condition 0307 
results. 

8. PRIOR REC0IU3 OF set-name SET means the previous record relative 
to the current record of the named set in the logical order of 
the set regardless of database-key sequence. If the set is 
CTipty, that is, no member record occurrences participate in the 
set, Error Status Condition imi26 results. If the current record 
is the first r€e<H:d in the sety a^ror Stetus-Gc^dition #307 
results. 
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9. FIRST RECORD OF area-name AREA is the record occurrence 
physically first in the named area. If there are no records in 
the named area, Error Status Condition im26 results. 

10. LAST RECORD OF area-name AREA is the record occurrence physically 
last in the named area. If there are no records in the named 
area. Error Status Condition nin26 results. 

11. FIRST RECORD OF set-name SET is the first member occurrence in 
terms of the logical order of the set. The record selected is 
the same as would be selected if the current record of the set 
was the owner record and the NEXT RECORD OF set-name SET was 
used. If the set occurrence is empty, that is, no member record 
occurrences participate in the set. Error Status Condition imi26 
results. 

12. LAST RECORD OF set-name SET is the last member record occurrence 
in terms of the logical order of the set. The record selected is 
the same as would be selected if the current record of the ^t 
was the owner record and the PRIOR RECORD OF set-name SET was 
used. If the set occurrence is empty, that is, no member record 
occurrences participate in the set, Error Status Condition 0326 
results. 

13. Identifier-2 must be initialized with an integer prior to 
execution of the FIND statement. Identifier-2 and integer-1 
represent the ordinal count of the object record occurrence 
relative to the beginning, if positive, or ending, if negative of 
a set occurrence or area. A negative value selects in the prior 
direction and a positive value in the next direction of the set 
occurrence or area. 

14. If there are no records in the set occurrence or area named. 
Error Status Condition 0326 results. If the value of integer-1 
or the contents of identifier-2 are greater than the number of 
record occurrences in the set occurrence or area specified, then 
Error Status Condition inn07 results. 

Format 4 

1. In Format 4, the LOCATION MCOE IS CALC clause must have been used 
in the description of record-name-4 ; otherwise. Error Status 
Condition mm45 results. All search arguments specified in the 
CALC clause must be included in the invoked subschema; 
otherwise. Error Status Condition nin43 results. 

2. Prior to the execution of the FIND statonent, the data items 
specified in the LXATION MCDE clause must be initialized and if 
the related WITHIN clause includes more than one area, the data 
iton declared as AREA-ID must also be initialized with the 
area-name to v*iich the resulting database-key applies. If an 
area-name is specified vdiich is not included in the WITHIN 
clause, Error Status Condition nsn23 occurs. If no record with 
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the specified CALC key values is found. Error Status Condition 
iTin26 results. 

3. When the NEXT DUPLICATE phrase is not used, the first record 
found by EMLCP v*ich satisfies the argument values for the CALC 
keys in User Wbrk Area is the one selected. When the NEXT 
DUPLICATE phrase is used and the following conditions exist, the 
record occurrence selected will be the next record found by DMLCP 
with the same value for its CALC key as the current record of the 
run-unit. If no such duplicate record occurrence is found, then 
Error Status Condition nni26 results. 

o The CALC key in UWA is equal to the value of the CALC key in 
the current record of run-unit. 

o The implied area-name or the area-name explicitly specified 
in AJ?EA-ID is the area in vdiich the current record of 
run-unit exists. 

4. When the NEXT DUPLICATE phrase is used and the above conditions 
do not exist, the effect is the same as if the NEXT DUPLICATE 
phrase had not been stated. 

Format 5 

1. Ifecord-name-5 must be defined in the sclrona as a menber of 
set-name-7; otherwise. Error Status Condition 0340 results. 

2. Format 5 of the rse, v*ien the CURRENT 0irase is used, causes 
record selection based on the current set occurrence of 
set-name-7. Vhen the CURRENT phrase is not used it causes record 
selection based on the SET OCCURRENCE SELECTION clause defined 
for the named record and set. All search arguments specified in 
that clause must be included in the invoked subschema; 
otherwise. Error Status Condition mn44 results. The search 
arguments must be initialized prior to the execution of the FIND 
statement. In addition, if the process involves selection of any 
record on the basis of a LOCATIQy! MCDE IS CALC clause, any 
AREA-ID in the WITHIN clause for that record must be initialized. 
If AREA-ID is not initialized with an area-name specified or 
implied for the record type, Error Status Condition nin02 results. 
If the database-key developed from the CALC keys is inconsistent 
with the area-name specified. Error Status Condition 0302 
results. 

3. The record selected if the USING p^irase is not specified is the 
first record occurrence of the record type specified by 
record-name-5, v*iich is in the selected occurrence of the named 
set. If the USING pi^ase is enjoyed r data-base-identifier-3 and 
data-base- identifier-4 are implicitly qualified by record-name-5 
and must be the names of fixed length data items included in 
record-name-5 r otherwise. Error Status Condition nin04 results. 
DMLCP will select a record having the same values for 
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data-base- identifier-3 and data-base-identifier-4 as are in the 
user Work Area. If more than one record occurrence meets the 
criteria specified, the first such record occurrence will be 
selected in terms of scanning the set in the next direction. If 
no record is found v^ich meets these criteria, Error Status 
Condition imi26 results. When the CURFEM" piirase is used, if the 
current record of set-name-7 is not known or its currency 
indicator is null. Error Status Condition inm06 results. 

Format 6 



1. Format 6 of the rse causes a search of the members of the current 
set occurrence of set-name-8 for a record which is of the same 
type as the current record of set-name-8, and, which has the same 
values for data-base- identifier-5, data-base- identifier-6. All 
values in the User work Area are ignored, ihe search is in the 
next direction arx3 starts fran the current record of set-name-8. 
It continues until either a duplicate is found or the end of set 
is reached. If no duplicate is found. Error Status Condition 
0307 results. If the current record of set-name-8 is not known 
or its currency indicator is null. Error Status Condition imi06 
results. If the current record of set-name-8 has been deleted by 
this or another run-unit, since it becane current in this 
run-unit. Error Status Condition mml7 results. If 
data-base-identifier-5, data-base-identifier-6 are not defined in 
the subschema invoked as part of the current record of 
set-name-8. Error Status Condition nin04 results. 
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Exanples and Discussion of the RECPRD SELECTION ESgRESSIONS 

For the following examples assuning three is a database with these 
record types: A DEPAROMENT (DEPT) record, an EMPLOYEE record and a 
SUPERVISOR record. The DEPT record has a location mode of CALC on the 
DEPINM field and is the owner of the DEPARTMEIsrr-SET (DEPT-SET) of which 
the EMPLOYEE and the SUPERVISOR records are a monber. The set is 
sorted on an EMPLOYEE NUMBER field v^ich is part of both the EMPLOYEE 
record and the SUPERVISOR record. The database has been pre-stored 
with the following set occurrence. 
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Example 1 

#FIND USING DBKl. 

The FORTRAN identifier DBKl has been declared to be a 3-element 
INTEGER*2 ARRAY which has been initialized to a valid database-key. 
The result of this command is that the record specified by this DBK 
becaties current at the run-unit area in which it is stored, of 
record and of all sets in v^ich it participates as an owner or 
member. 



Example 2 

#FIND CWNER IN DEPT-SET OF CURRENT OF RECORD EMPLOYEE. 

Assuming that the current of RECORD Employee is EMPLOYEE 4, the 
owner record pE;pARTME]OT_y*ijch is prqgLraimanawill^^^^^ arK3 

become current at run-unit, current at record type DEPARTMENT, 
current at set EEPARTMENT-SET and current at the area in which the 
EEPT' record resides. 



- 79 



July 1977 



SECTION 3 IDR3045 

Example 3 

#FIND -2 RECORD SUPERVISOR OF SET DEPT-SET. 

The format of the rse will traverse the DEPT-SET in the prior 
direction and produce the supervisor record with the number 2 as 
the current of run-unit at all. It should be noted that the 
anployee record in the set did not affect the count. Had the 
"PvECORD SUPERVISOR" clause been dropped fran the FIND, the Employee 
Record 8 would be the record selected. 

Example 4 

#FIND NEXT RECORD EMPLOYEE OF SET DEPT-SET. 

Assuming that the current record of run-unit is Employee 1, the 
record chosen by this format of the record selection expression 
would be Employee 3. This record would then become current of 
run-unit, etc. 

Example 5 

#FIND RECORD DEPT. 

Assuming the Department name field was assigned the value of the 
Dept name, the Department record {v*iose field matched the Dept 
name) would have been selected and would have becane current of 
run-unit. 

Example 6 

#FIND EMPLOYEE VIA DEPT-SET USING EMPNOfl. 

Assuming the set selection clause for Dept Set is location mode of 
owner and the call field for the Dept record was assigned to 
PROGRAMMING and the database- identifier EMHgUM was assigned the 
value 5, this format at the record selection expression would have 
first located the record Dept v*iich had the DEPTOIUM field with the 
value programming and then located the Employee record with the 
EMFNUM of 6, which was owned by that Department. Ihe EMPLOYEE 
record would then become current of run-unit, current of record 
EMPLDYEE, current of set EEPT-SET, and current of area in v^ich it 
is stored. 
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********** 

* REMOVE * 
********** 



Function 



To cancel the raenbership of the object record in the occurrences of the 
specified set-names in vdiich it currently participates as a monber, 
provided that the object record is defined as an optional member of the 
sets named. 



General Format 



, SETS set-name-1 [ ,set-name-2.] 
i^MOVEFEM AlTsEK " 



Syntax Rules 

1. The sets set-name-1, set-name-2 must be defined in the invoked 

subschCTia . 

2. The record which is current at run-unit must be defined as an 
optional metnber of the named sets in the Schema WL, 



General Rules 



1. The object record of the REMOVE statement is the current record 
of the run-unit. 

2. If set-names are specified in the REMOVE statement, then the 
object record must have been defined in the schema as an optional 
maitoer of all of the sets named. it must also currently 
participate as a motiber in an occurrence of each of the sets 
named. 

3. The ALL SETS format is designed to remove the object recor«3 from 
all set occurrences in v*iich it is defined in the invoked 
subschotia as an optional member and in which it currently 
participates as a monber. 
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4. No change occurs to any currency information maintained by the 
EMLCP. 

5. If the run-unit has not satisfied the privacy locks for all 
records, sets, areas, and data items needed to execute the REMOVE 
statement. Error Status Condition 1104F will result and the 
run-unit will be aborted by DMLCP. 

6. In addition to the conditions described, if any of the following 
conditions are encountered, the REMOVE statement is not 
successfully executed, the database remains in the state existing 
prior to the attempted execution, and the appropriate Error 
Status Condition code is made available in special register 
ERSTAT. Otherwise, the contents of ERSTAT is set to zero, 
indicatir^ successful execution of the REMOVE statanent. 

o If all set-names specified are not included in the invoked 
subschema. Error Status Condition 1146 results. 

o If the current record of the run-unit is not known, Error 
Status Condition 1113 results. 

o If the object record is not defined as an OPTIONAL MEMBER of 
all of the specified set-names. Error Status Condition 1115 
results. 

o If the object record does not currently participate as a 
member in an occurrence of at least one of the sets specified 
or implied. Error Status Condition 1122 results. 

o If the object record or any record occurrence affected by the 
REMOVE statonait is located in an area vAiich is open for 
RETRIEVAL, Error Status Condition 1109 results. 

o If any record occurrence needed by the DMLCP for 
informational purposes (such as following a search path) is 
not available because it is off-line or under exclusive 
control of another run-unit, Error Status Condition 1118 
results. 
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Frror Status Codes for REMDVE 



Content of 
Condition ERROR-STATUS 



Incorrect usage-mode for area 1109 

No current record of run-unit 1113 

dDJect record not defined as an optional member of a named set 1115 

Implicitly referenced area not available 1118 

Ctoject record not currently a member of named or implied set 1122 

Concurrent update conflict 1135 

Specified set-name not in subschema 1146 

Fatal - privacy breach attanpted -1104(1104F) 
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Exairples and Discussion for REMDVE 

#RmOVE FPCM ALL SETS. 

This fonnat of the FfflCfVE statement will take the current record of 
run-unit and remove it from all sets of v*iich it is an optional monber. 
That is, the record will no longer be accessible from the set 
occurrences from \»*iich it has been removed. It will still be 
accessible from other set occurrences of which it is a mandatory member 
or frcMn its CALC key if the record has a location mode of CALL or from 
a traversed of the AREA. 
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************************ 

* START OF TRANSACTION * 
************************ 



Function 

The START TRANSACTION ccanmand defines the start of either an update or 
retrieval activity on the database. It provides a retrieval 
transaction and a consistant view of the database. It allows an update 
transaction to define the beginning of a recoverable series of coninands 
and it guarantees exclusive update rights to date, v^iich may be 
modified. It also saves the currency indicators as they are defined at 
the beginnir^ of transaction. 
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General Format 



START TRANSACTION identifier 



UPDATE 
'RETRIEVAL 



.] 



Syntax Rules 



1. ID is a FORTRAN identifier vAiich contains an INTEGER*2 value 
assigned to the transaction as the users (run-units) name for 
that transaction. 



General Rules 



1. All coimiands v*iich access the database (FIND, CTT, FETCH, fODIFY, 
STORE, INSERT, REMOVE, I^LETE, IF, MOVE) must be nested between 
START TRANSACTION and EM) OR ABORT TRANSACTION Statements. 

2. The following ccranands may not be nested between the START/END 
TRANSACTION statement: INVOKE, OPEN, CLOSE, START TRANSACTION, 
and EXIT IBMS. 

3. If Before- imaging is turned off by the IBACP, roll back cannot 
occur . 

4. If a subsequent update ccxnmand (^DDIFY, STORE, INSERT, REMOVE, 
DELETE) attempts to modify data that has been modified by another 
update transaction that is currently active, the update canmand 
will receive an Error Status of inn35 where ram is the major code. 
The only choice allowed the application at that point is to abort 
the transaction and start it over again. If this is not done on 
execution of the next DML comnand, the transaction will be rolled 
back and the run-unit aborted. 

5. If a START TRANSACTION comiand is executed v^en a transaction is 
already active, Error Status Condition 2335 results. 
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Exanple and Discussion of START OF TR?aJSACTION 
INTEGER TRANID 

#INVOKE DBMS 

#OPEN ALL AREAS USAGE-MCOE IS UPDATE 

TRANID=1 

5 tSTART TRANSACTION TRANID, UH]ATE 

#FIND RECORD DEPT 

#STORE EMPLOYEE 

IF (ERSTAT.EQ.0) GO TO 10 

#CLEAR ERROR 

#ABORT TRANSACTION TRANID 

GO TO 5 
10 CCM-INUE 

#END TRANSACTION TRANID 

GO TO 5 



The above program is an example of a procedure that might be used to 
add an onployee record to a departaient in a concurrent on-line 
enviroranent. 

The I^MS is first invoked and all areas defined in the subschema are 
open. Thsn, a start of transaction is executed. During the 
transaction a FIND statanent is executed and then a STORE. If the 
STORE statonent has a concurrent u^xSate error, the transaction is 
rolled back and tried again, if it is successful, execution continues 
until the END TRANSACTION, v*iich then secures all updates to disk and 
defines the start of a quiescent paint imti4 the next STftRT 
TRANSACTION. 
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********* 

* STORE * 
********* 



Function 



The STORE statanent accomplishes the following: 

1. Acquires space and a database-key for a new record occurrence in 
the database. 

2. Causes the values of the appropriate data items in User Work Area 
to be included in the occurrence of the object record in the 
database . 

3. Inserts the object record into all sets for v*)ich it is defined 
as an automatic member in the schema. 

4. Establishes a new set occurrence for each set where the object 
record is defined as owner in the schema. 

5. Establishes the object record as the current record of the 
run-unit. 

6. Depending on the SUPPRESS status, establishes the object as: 
o The current record of the area in vAiich it is stored, 

o The current record of the record-name, 

o The current record of set for all set-names in vAiich it is 
specified as an owner or autanatic member. 

General Format 

STORE record-name 



Syntax Rules 

1. The invoked subschema must include the named record; the data 
items or set specified in the LOCATION MODE clause of the named 
record; at least one of the areas specified in the WITHIN clause 
of the named record; all sets in which the named record is 
defined as an owner or an autcsnatic member; all data items, 
records, and sets specified or referenced in the SET OCCURRENCE 
SELECTION clauses and ASCENDING/DESCENDING KEY clauses of those 
sets in v*ich the named record is defined as an automatic member. 
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General Rules 



1. The subschema invoked must include the named record; otherwise. 
Error Status Condition 1246 results. 

2. The data itons, data-base-data-names, or sets specified in the 
LOCATION MODE clause of the named record must be included in the 
invoked subschema; otherwise. Error Status condition 1243 
results. 

3. The area in viAiich the record is to be stored must be included in 
the invoked subschema; otherwise. Error Status Condition 1247 
results. 

4. All sets in vAiich the named record is defined as an autanatic 
me±ier must be included in the invoked subschema; otherwise. 
Error Status Condition 1208 results. 

5. All data itans, data-base-data-name, records, and sets specified 
or referenced in the SET OCCURRENCE SELECTION clauses of those 
sets in viiich the named record is defined as an autcanatic member 
must be included in the subschema; otherwise. Error Status 
Condition 1244 results. 

6. All data items specified in the ASCENDING/DESCENDING KEY clauses 
of those sets in which the named record is defined as an 
automatic member must be incl tried in the invoked subschema; 
otherwise. Error Status Condition 1248 results. 

7. A database-key and space for the object record are allocated on 
the basis of the description of the record in the subschema 
invoked by the run-unit and values provided by the user. 

o Data items are included in the object record of the STORE 
statenent from the User work Area. Data itons not 
initialized will be given indeterminate values. 

o Also included is any control data iton, as specified or 
referenced in the SET OCCURRENCE SELECTICW clauses for this 
record, when all sets are defined as automatic members. If 
any such SET OCCURRJWCE SELECTION clause is THRU CURRENT SET, 
the user must insure that the current record of that set 
identifies the proper set occurrence. If any such SET 
OCCURRENCE SELBCTIC»I clause is THRU DOCATIC»J M(XiE OF OWNER, 
then all control data items specified for that owner record 
mi:ist be initialized. In addition, all other data itons 
specified in the applicable SET OCCURRENCE SELECTION clauses 
must be initialized. 

8. For each LOCATION MODE clause involved in the execution of a 
STORE, the following control data items (depending on the option 
used) must be initialized. 
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In the case of the DIRTCT phrase, the data item specified in 
the DOCATION MCOE clause must be initialized. In a STORE 
statement, the first 28-bits of such a data item is ignored. 
The third word of the integer array must be initialized with 
zero or a positive integer nuonber. If a non-zero value is 
given, this word will be used by the DBMS as the 
Bucket-number portion of the database-key. If a zero has 
been used, IBMS will assign an available Bucket nianber for 
the record type in the specified area. In either case, the 
DMLCP will generate the first 20-bits of the database-key 
(v*iich represents the record type and the area in v*iich the 
occurrence is to be stored) . The systen will assign the 
resulting 48-bit CBK, if it is available, to the record vAiich 
is the object of the STORE statanent. If the 
occurrence-number portion was supplied by the user, and the 
resulting database-key is not available, EMLCP will assign an 
occurrence-number which will result in an available DBK in 
the specified area. In any case, the full 48-bit 
database-key by v^iich the record occurrence is stored will be 
returned in UWA in the data iton specified in the DIRECT 
phrase of the ICCATKM WDE clause. 

A database-key can be determined by the DMLCP to be 'not 
available' for either of the following reasons: 

o The database-key is already in use either by a current or 
a deleted record occurrence of the database. 

o The storage structure implanented under the current 
version of the DMLCP will rK>t allow the database-key, 
since it will cause overflow. 

If the DIRECT E*irase is used, and the WITHIN clause is 
specified, the data iten declared as AREA-ID must be 
initialized with an area-name specified or implied for 
the record type or to zero, in vAiich case the first area 
in which the record definition is included in the schema 
will be chosen. If an area-name is specified vAiich is 
not defined in the schema as a possible area for this 
record type. Error Status Condition 1223 results. 

o In the case of the CALC frfirase, the 
database-identifiers named in the IDCATICW MODE 
clause must be initialized, and if the record type 
can be stored in more than one area, the data iten 
declared as AREA-ID in the WITHIN clause must be 
initialized with an area-name specified or implied 
for the record type (or zero, as above) . If an 
area-name is specified which is not defined in the 
schema as a possible area for the record type. Error 
Status Condition 1223 results. Ihe DMLCP will 
develop a database-key which is canpatible with the 
specified area-name. 
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o In the case of the VIA set-naire phrase, the data 
items specified in the SET OCCUPBENCE SELECTION 
clause for this record in the named set must be 
initialized, and, if the record type can be stored in 
more than one area, the data item declared as APEA-ID 
in the WITHIN clause must be initialized with an 
area-name specified or implied for the record type 
(or zero, as above) . initialization of the data 
items specified in the SET OCCUPFENCE SELECTION 
clause is required to enable the DMLCP to select a 
unique occurrence of the named set, and is required 
regardless of whether the record being stored is an 
automatic or manual member of that set. If it is an 
automatic member of the set, it will be logically 
inserted into the selected set occurrence. If it is 
a manual member, it will not be inserted into the 
selected set occurrence. In both cases, however, 
subject to the constraints of the implied area and 
areas specified in the WITHIN clause, the record 
being stored will be placed by the EMIiCP as close as 
is possible to the actual or probable logical insert 
point in the selected set occurrence. The effect of 
implicit arxJ explicit areas on placement is as 
follows: if the record type is defined in the schema 
to be a possible occurrence of only one area-name, 
placonent is controlled by that area-name; If more 
than one area-r^me is specified, the initialized 
value of AREA-ID controls placenent. AREA-ID must be 
initialized with an area-name appropriate for the 
record tjpe or it must be initialized with a zero; 
otherwise. Error Status Condition 1223 results. If 
AREA-ID is initialized with a legal area-name, 
placonent is in that area. If AREA-ID is initialized 
with a zero, placonent occurs as close as is possible 
to the logical insert point. Such placement is, 
however, constrained by the implied or specified 
areas for this record. 

9. If no WCPiTlOti MCDE clause has been specified for the record 
being stored, raiMS will assign a database-key consistent with the 
relevant area-name. If the record can be stored in more than one 
area, AREA-ID specified in the WITHIN clause must be initialized 
with an area-name specified or implied for the record type or 
zero (as above) . If an area-name is specified vrfiich is not 
included for the record type. Error Status Condition 1223 
results. 

10. In cases vrfiere the type of a data iten, as defined in the 
subschema invoked by tbe run-unit differs from the definition of 
that data item in the schema: 

o Conversions performed by the EMICP will be in accordance with 
the rules specified in the TYPE clause of the WL for the 
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SCHEMA and the TYPE specification of the subschema DDL for 
FORTEAN. 

11. Data itens defined in the schema for the database but not 
included in the subschema invoked by the run-unit are not 
assigned User Work Area locations. Mill-values will be placed in 
the database for such data itans. 

12. The object record occurrence is inserted into a set occurrence 
for each set in v^ich the record is defined as an automatic 
member. The ordering rules for the set govern the insertion 
point of the object record in all of the relevant set 
occurrences. 

13. The object record is established as the owner of a set occurrence 
for each set in v*iich it has been defined as an owner. These set 
occurrences are anpty at this time; that is, they have no mannber 
records. 

14. The successfully stored record occurrence becomes the current 
record of the run-unit. 

15. If suppression of currency updates is not in effect (see SUPPRESS 
command) , the object record also becomes the current record of 
the area in v^ich it is placed, the current record of its 
record-name, and the current record of all set-naires in vdiich it 
is defined as an owner or automatic member. 

16. The SUPPRESS command provides the selective facility to prevent 
the object record fran becoming the current record of the area, 
the current record of its record-name, and the current record of 
any or all of the set-names in v*iich it is defined as either an 
owner or an automatic member. when SUPPRESS is used, the 
specified currency indicators are not affected by the execution 
of the STORE statement. 

Use of SUPPRESS cannot prevent the object record fron becaning 
the current record of the run-unit. 

17. If any of the following conditions are encountered, the STORE 
statCTient is not successfully executed, the database and Iteer 
Work Area ronain in the state existing prior to the attempted 
execution, and the appropriate Error Status Condition code is 
made available thru the special register ERSTAT. Otherwise, 
ERSTAT will be zero, indicating successful execution of the STORE 
statement. 

o If the named record is not included in the invoked subschema, 
Error Status Condition 1246 results. 

o If all database entities specified in the LOCATION MODE 
clause of the named record are not included in the invoked 
subschema. Error Status Condition 1243 results. 
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If the area in v^ich the named record is to be stored is not 
included in the invoked subschema. Error Status Condition 
1247 results. 

If the object record is to be stored in an area vAiich is not 
open. Error Status Condition 1201 results. 

o If the object record or any record occurrence affected by the 
STORE statonent is located in an area v*iich is only open for 
retrieval. Error Status Condition 1209 results. 

o If any record occurrence needed by the DMLCP for 
informational purposes (such as following a search path) is 
not available because it is off-line or under the exclusive 
control of another run-unit, Error Status Condition 1218 
results. 

o If media space is not available, (i.e., there is insufficient 
room in the area specified or in a set where insertion would 
occur for the new record occurrence) , Error Status Condition 
1211 results. 

o If the area specified for the object record, or for any 
record selected through its CALC keys as a result of the 
execution of the STORE statement, is not one of those 
implicitly or explicitly specified in the schema definition 
of the relevant record type, Error Status Condition 1223 
results. 

o If the record to be stored would violate a DUPLICATES NOT 
ALLOWED clause defined for any of the records or sets 
involved. Error Status Condition 1205 results. 

o If all sets in which the named record is defined as an 
autcxnatic martoer are not included in the invoked subschona. 
Error Status Condition 1208 results. 

o If for any of the set-names involved, a set occurrence v^ich 
meets the relevant set selection criterion cannot be found, 
, Error Status Condition 1225 results. 

o Error Status Condition 1244 results if all database entities 
specified or referenced in the SET OCCURRENCE SELECTION 
clauses of those sets in v*iich the named record is defined as 
an automatic member are not included in the invoked 
subschema. 
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o If all data itans specified in t±e ASCENDING/DESCEM)ING KEY 
clauses or search key clauses of those sets in v*iich the 
named record is defined as an autottatic member are not 
included in the invoked subschema, Error Status Corx3ition 
1248 results. 

o If a CHECK clause ajplies and any of the stored data items is 
detected as invalid, Error Status Condition 1227 results. 

o If the value of the data item in the User work i^ea is such 
that it cannot be converted to the format specified in the 
schema for that data iten. Error Status Condition 1219 
occurs. 

18. If the run-unit has not satisfied the privacy locks on all data 
items, records, sets, and areas needed to execute the STORE, 
Error Status Condition 1204F will result and the run-unit will be 
aborted by the DMLCP. 
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Error Status Codes for the STORE Statement 



Content of 
Condition EPROR STATUS 



Area not open 1201 

Violation of DUPLICATES NOT ALLOWED clause 1205 

Referenced set-name not in subschema 1208 

Incorrect usage-mode for area 1209 

Media space not available 1211 

Implicitly referenced area not available 1218 

Conversion of value of data iten not possible 1219 

Illegal area-name 1223 

NO set occurrence satisfies argument values specified 1225 

Concurrent update error 1235 

New value of data iton or actual result data item 

violates CHECK clause 1227 

Arguments of Location Mode clause not included in subschema 1243 

Arguments of Set Occurrence Selection clause not included 

in subschema 1244 

Specified data item, record, set, or area not in subschona 1246 

Referenced area-name not in subschema 1247 

Arguonents of ASCENDING/DESCENDING KEY clause not in subschetia 1248 

Fatal - privacy breach attonpted -1204(1204F) 
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Examples and Discussion for the STORE Statement 
#STCRE DEFT 

The STORE canmand creates the record in the database, assigns it a DBK, 
inserts it into all sets for v^iich it is an automatic member, and 
creates entries for all sets viiich it owns. Data items v*iich are 
declared in the schema but not defined in the subschema are filled with 
null values. 
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************* 

* SUBSCHEMA * 
************* 

Function 

To name the subschona vdiich will provide the description of the data to 
the application program. 



General Format 



SUBSCHEMA subschana-name of SCHEMA schema-name 



Syntax Rules 



1. The schema-name specified must be the name of a schema known to 
the TSms. 

2. Ihe subschema-name specified must refer to a FORTRAN subschema 
for the named schema and must be known to the system. 

3. This statenent must be present in any program unit containing 
FDML commands. It must precede all executable FORTRAN 
statements. 

4. If there is more than one program unit in a file, the SUBSCHEJ1A 
statenents in those program units must all refer to the same 
schema-name and subschema-name. This error cannot be detected by 
the DH*5S and must therefore be verified by the user. 



General Rules 
None. 
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Example and Discussion of the SUBSCHEMA Statement 

#SUBSCHEMA MY-SUB OF SCHEMA THE-SCHEMA. 

INTEGER I,J,K 

end 

SUBROirriNE SUBl 

tSUBSCHEMA MY-SUB OF SCHEMA TOE-SCHEMA. 

INTEGER I,J,K 



end 

SUBROUTINE SUB 2 
#DBMS SUBPROGRAM 
INTEGER I,J,K 



END 



The above example shows how a sample application program might aj^ar 
in a file, This progran consists of a main routine and two subroutines 
which will to reference the database. 

If more than one SUBSCHEMA statonent is used, then it must refer to the 
same schema and subschona. The DBMS SUBPROGRAM statement may be used 
as shown in the third program unit in place of the subschema statement 
if a previous subschema statenent has been declared. 

All of the above statements are replaced by the conmon block 
declarations v*ich serve as the User Vtork Area. 
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************ 

* SUPPRESS * 
************ 



Function 



Suppresses, that is prevents, the updating of any conbination of the 
currency indicators: Current record of areas, current record of 
records, and current record of sets, or optionally, current record of 
specific sets. 



Cptionally, it clears all suppression which exists and indicates 
suppression of currency indicators. 



new 



General Format 



[CLEAR] 



SUPPRESS 



RECORD 

ARlT ^ 
(SET 
|set-name-l [set-name-2] 



-I 



Syntax Rules 

1. The sets set-name-l, set-naine-2, must be defined in the invoked 
subschana . 
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General Rules 



1. The SUPPRESS statanent will dictate the currency indicator 
updates performed by succeeding FIND, FETCH, STORE, or INSERT 
ccxnmands . 

2. If the CLEAR option is not used, all currency indicators 
specified in the SUPPRESS statement are in addition to any 
currency indicators specified for suppression previously. 

3. If the CLEAR option is used, the suppression now existing on any 
currency indicators will be lifted. Ihen, if the SUPPRESS phrase 
is also used, the specified currency indicators will be set for 
suppression of currency updates. 

4. If all set-names specified are not included in the invoked 
subschema. Error Status Condition 1546 results; otherwise, 
special register ERSTAT is set zero, indicating successful 
execution of the SUPPRESS statement. 
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Error Status Conuitiun of the SUPPRESS Statement 



Content of 
Condition ERSTRT 



Set-name specified not in sitosctema 1546 
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Exanple and Discussion of the SUPPRESS Statement 



#FIND FIRST RECORD EMPLOYEE OF SET DEPT-SET. 

#SUPPRESS SET CURRENCY UPDATES. 

#FIND NEXT RECORD EMPLOYEE OF SET DEPT-SET. 

#CLEAR. 

#FIND NEXT FECOPD EMPLOYEE OF SET DEPT-SET. 

#FIND NEXT RECORD EMPLOYEE OF SET DEPT-SET. 

This program is an example of the use of the SUPPRESS statanent. The 
first FIND makes the object record current of AREA, RECORD, and all 
sets v^iich it owns or of which it is currently a member. The 
subsequent SUPPRESS conraand will turn off all currency updates for any 
set. The next FIND will update current of run-unit, current of area, 
and current of record, but will not update any set currency pointers. 
Thus, any reference to the current of set by an INSERT or FIND ccnimand 
will reference the set currency indicators defined by tl^ first FIND. 

In the example, the object record of the third FIND would be the same 
as the object record of the second FIND because the current of set 
DEPT-SET was not updated. After the CLEAR coimand is executed, the 
crfsject record of the fourth FIND would be the third record of the set 
because the third FIND updated the currency pointer of that set. 
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SECTION 4 
FORTRAN DDL & DML DIAGNOSTIC METHODS 



SUMMARY OF MAJOR CODES 



Major 
Code 


DML Stateinent 


01 


CLOSE 


02 


DELETE 


03 


FIND 


05 


GET' 


07 


INSERT 


08 


MODIFY 


09 


OPEN 


10 


CLEAR ERROR EXIT DBMS 


11 


REMOVE 


12 


STORE 


13 


PRIVACY KEY 


14 


INVOKE 


15 


SUPPRESS 


18 


IF 


19 


MOVE 


22 


FETCH 


24 


START TRANSACTION 


25 


END TRANSACTION 


26 


ABORT TRANSACTION 
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NOTE 

EPROF CODE FORMAT 

is XXYY where 
major code is XX 
and error code is YY 
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StMMARY OF NON-FATAL MIMDR CODES 

Minor 

Code Error Condition 

01 Area not open 

02 Database-key inconsistent with area-name 

03 Invoke has already been executed 

04 Data items invalid or inconsistent 

05 Violation of DUPLICATES NOT ALLOWED clause 

06 Current of set, area, or record-name not known 

07 End of set or area 

08 Referenced record or set-name not in subschema 

09 Incorrect usage-mode for area 

10 Not used 

11 Media space not available 

12 Database-key not available 

13 NO current record of run-unit 

14 Object record is mandatory autanatic in named set 

15 Object record is mandatory in named set 

16 Record already a monber of named set 

17 Deleted record involved 

18 Implicitly referenced area not available 

19 Conversion of value of data iton not possible 

20 Not used 

21 Not used, no current owner record of named set 

22 Record not currently a monber of named set 

23 Illegal area-name 

24 Not used 
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25 No set occurrence satisfies argument values 

26 NO record satisfies the FIND specified 

27 CHECK clause violation 

28 Not used 

29 Violation of deadlock protection rule 

30 Unqualified delete attempted on non-empty set 

31 OPEN blocked 

32 Deleted set occurrence involved 

33 Attempted to find owner of a singular set 

34 Time out 

35 Concurrent update conflict, refer to 35A 

36 Not used 

37 Not used 

38 Not used 

39 Not used 

40 Eecord type not a member of named set 

41 Record type not owner of named set 

42 Record type not included in named area 

43 Argunents of LOCATICW MCDE clause not included in subschema 

44 Arguments of SET OCCURRENCE SELEXiniOT clause not included in 
subschema 

45 Location mode of record not specified as CALC 

46 Specified data item, record, set or area not in subschema 

47 Referenced area-name not included in subschema 

48 Arguments of ASCENDING/DESCENDING clause not in subschona 

49 Arguments of within clause not included in subschema 

50 Not used 
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51 Not used 

52 Virtual data item not available, not used 

53 Invalid value for virtual result data item, not used 

54 Value of string data item truncated in User Work Area 
01F inquired subschema has been deleted 

02F Required schema has been deleted 

03F Not used 

04F Privacy breach attempted 

05F Attempted to open too many areas simultaneously 

06F Not used 

07F Not used 

08F Nt)t used 

09F Feature not implemented 

10F Internal fatal error 

IIF Schema locked 

12F Database files not allocated 

13F Volune not on syston 

14F Too many files opened on schemas in concurrent use 

15F User Work Area larger than declared space in dynamic invoke 



NOTE 
Fatal errors are indicated by 
a negative number, (e.g., - 0311 
is a fatal error for the FIND 
comnand) . 
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SUMMARY OF COjCUPRENT ACCESS CCNFLICTS 
Message 

1) ATTEMPTED ACCESS TO COKCUBRENTLY 

UPDATED BDOCK 

2) ATTEMPTED ACCESS TO INVALID 

EEFORE-IMAGE 

3) TPANS ACTION MUST AK)RT 

4) NO TRA2KACTI0N IS IN EFFECT 

5) OVEPFIjCW of bit MAP 



6) OVEPFLOW OF OLDEST BEFCRE- 

IMAGE TABLE 

7) OVERFLOW OF CTINERATION NlflBEP 



8) OVERFLOW OF BEFORE-IMAGE FILE 

9) ATTEMPTED WRITE BY READ 

TRANSACTION 

IP) INVALID START UPDATE WITHIN 
ACTIVE TRANSACTION 

11) INVALID START RETRIEVAL WITHIN 

ACTIVE TRANSACTION 

12) INVALID ABORT TRANSACTION — 

NO TRANSACTICN ACTIVE 

13) INVALID END TRANSACTION — 

NO TRANSACTICN ACTIVE 

14) OPEN IS INVALID WITHIN ACTIVE 

TRANSACTION 

15) CLOSE OR EXIT EBMS IS INVALID 

WITHIN ACTIVE TRANSACTICW 

16) CANNOT READ OR WRITE BEFORE, 

LOG OR AFTER FILE 

17) LOG FILE NOT OPEN 



?teaning 

External conditions 

Slow reader - requested before 
image has been recycled 

A concurrency error has already occurred. 

CML program error. 

Too many updates or a slow update 
or an aborted update. 

Same as above. 

More than 232 transactions (update 
transactions) . 

Too much update activity. 

DML program error. 

DML progran error. 

DML program error. 

DML program error. 

DML program error . 

EML program error. 

DML program error. 

DBMS error. 

Can't happen currently. 
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18) OVERFLOW OF READ TRANSACTION 
NUMBER 



More than 232 read transactions. 



19) EEFORE-IMAGE FILE NOT OPEN 

20) INCONSISTENT TRANSACTION 

IDENTIFIER 



DBA error. 

Identifier on END or AK3^ 
TRANSACTICW does not match 
identifier on START OF TBMEhCnucm. 



Ihe following error conditions are transient: 1,2,3,5,6,8; transient errors 
will eventually go away if the transaction is repeated. Ihe following error 
conditions are fatal to a subsequent retry of the same transaction: 
4,7,9,10,11,14,15,18,19. 
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